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1, ABSTRACT 

VT8-E VIDEO DISPLAY TEST 1 IS A TEST OF THE VT9-E 
DISPLAY, CONTROL, AND KEYBOARD, THIS PROGRAM TESTS THE 
BASIC FUNCTIONS OF THE CONTROL AS WELL AS CHECKING THE 
ABILITY TO DISPLAY IN THE ALPHA-NUMERIC MODE, WHILE 
WAITING FOR INTERRUPTS DURING THE VISUAL TESTS A SIMPLE 
PROCESSOR TEST IS BEING EXECUTED IN THE BACKGROUND, 

warning » this program should only be halted 

. - - when in maintenance and visual tests 

. by setting src to The "i" position, 

2, requirements 

» * m w « ^ m m m m „ a 

2.1 EQUIPMENT 

• •»»»»*#•» 

P0P8-E, -F, OR -M PROCESSOR 

TELETYPE OR HIGH SPEED READER TO READ IN THE PROGRAM 
VT3-E 

2.2 STORAGE 


LOCATIONS 0000 THROUGH 7577, 

2,3 PRELIMINARY'PROGRAMS 

ALL PROCESSOR AND MEMORY TEST PROGRAMS MUST HAVE SEEN ' 
RUN SUCCESSFULLY, 

3, LOADING PROCEDURE 


THE BINARY LOADER IS USED TO LOAD THE PROGRAM INTO ANY 
MEMORY FIELD, REFER TO-BINARY LOADER DOCUMENTATION IF 
UNFAMILIAR WITH ITS USE, 









TEST PROCEDURE 


STANDARD TEST PROCEDURE 


USE OF THE STANDARD TEST PROCEDURE RESULTS IN ANY ERROR 

OCCURENCE THAT CAN BE DETECTED BY THE SOFTWARE TO BE INDICATED 

BY A HALT, CONSULT THE LISTING WHERE THE HALT OCCURRED TO 

DETERMINE THE NATURE OP THE ERROR’, IF AN ERROR OCCURS, REFER 

TO PARAGRAPHS 3,1 AND 6,0 FOR SWITCH SETTINGS, ERROR EXPLANATIONS, AND 

ERROR RECOVERIES', THERE ARE SPECIAL STARTING ADDRESSES WHICH ALLOW 

THE USER TO CHANGE DEVICE CODES, DISPLAY SELECTED CHARACTERS, 

DO. DATA BREAKS USING THE DATA IN THE SR, OR START AT A PARTICULAR 
SECTION OF THE PROGRAM, .REFER TO PARAGRAPH 5 ; ,2 FOR THESE 
SPECIAL STARTING ADDRESSES AND A DESCRIPTION OF EACH, 

ALTERNATE VT8.E*S 


IN ORDER TO RUN UP TO 8 VT8-E'S SEQUENTIALLY USING THE DIAGNOSTIC, 
THE IOT CODES' FOR THE DEVICES MUST BE DEPOSITED INTO AN !OT 
TABLE IN MEMORY, THE TABLE IS NORMALLY SETUP TO RUN ONLY ONE 
VT8-E AND APPEARS IN MEMORY AS FOLLOWSI 


location 

CONTENTS 

0020 

0503 

0021 

' 0000 

0022 

0000 

0023 

0000 

0024 

0000 

0025 

0000 

0026,- 

0000 

0027 

0000' 

0030 

00.00 


THE CONTENfS OF LOCATION 0020 CONTAINS THE DEVICE CODES OF ONE 
VT8-E, BITS 0*5 ARE THE DEVICE CODE OF THE DISPLAY <05) AND 
BITS 6-11 ARE THE DEVICE OF THE KEYBOARD <03), TO TERMINATE 

the Table, zeroes must be deposited into the location following 

THE LAST DEVICE CODE DEPOSITED.BELOW IS AN EXAMPLE OF A TABLE 


SETUP TO RUN SIX 

CONSECUTIVE VT8-E'S, 

location 

contents 

0020 

0503 

0021 

1513 

0022 

2523 

0023 

3533 

0024 

4543 

0025 

5553 

0026 . 

0000 TERMINATOR 

0027 

0000 • UNUSED 

0030 

0000 UNUSED 


WaRNINGI IF THE PROGRAM IS HALTED WHILE RUNNING ALTERNATE VTB-E'S 
An|D THE PROGRAM IS RESTARTED AT AnY QTHEr ADDRESS THEN 
200,71,72.OR 75 THE PROGRAM WILL RUN THE CURRENT VT8-E SELECTED 




MA1NTAINENCE AND ALPHA-NUMERIC TESTS 

1, CHECK THE VT8-E CLOCK WITH A SCOPE AND VERIFY THAT FOR 60 HZ A 
TICK OCCURS EVERY 16 g/3 MS, OR FOR 50 HZ A TICK OCCURRS 
EVERY 20 MS, 

2, TURN THE VIDEO TERMINAL ON, 

3i LOAD THE PROGRAM INTO ANY DESIRED MEMORY FIELD USING THE 
BINARY LOADER, 

4, s e t the s e nse switch to a «i% 

5, IF IT IS DESIRED TO RUN MORE THEN ONE VT8-E, REFER TO 
PARAGRAPH 4,2 FOR JOT TABLE SETUP AND THEN GO TO STEP 
6 IN THIS PARAGRAPH, 

6, LOAD ADDRESS 0200 WITH THE IF AND DF SET TO THE 
PROGRAM FIELD, . 

7, CLEAR ALL SWITCHES', 

8, IF 50 HZ* S E T SR4 3 1, 

9, IF 32 CHARACTERS PER LINE, SET SR6 » 1, 

ib»‘. place the value of the highest memory field in sr?-u’, 

11, DEPRESS CLEAR AND CONTINUE, 

1 z\ the display will HAVE a blank screen for the duration 

OF THE MAINTENANCE TESTS WHICH IS APPROXIMATELY 17 SECONDS', 

13', IF RUNNING MORE THEN ONE VT8-E. THE NEXT VT8-E IN THE JOT 
TABLE WILL BESELECTEO TO RUN THE MAINTENANCE TESTUNTIL 
ALL VTS-E'S IN THE JOT TABLE ARE TESTED, 

14*, refer to paragraph 8,2 for a description of the patterns 
DISPLAYED', 

15i AT THE CONCLUSION OF THE VISUAL TESTS, "DONE" WILL BE DISPLAYED 

on the screen and the Test will then loop back to the 

BEGINNING 1 , if MORE THAN one vt8»E is BEING TESTED, "DONE" WILL ' 
NOT BE DISPLAYED UNTIL THE LAST VT8-E JS TESTED, 

16*, FOR SYSTEMS WITh MULTIPLE VTS-g'S, REFER TO PARAGRAPH 5 e 2',6 
TO RUN UP TO 4 VT8-E*S SIMULTANEOUSLY, 



keyboard Test procedure 

1, THE MAiNTAlNENCE AND VISUAL TESTS SHOULD HAVE BEEN RUN 
PRIOR TO THIS TEST, 

2 , m a ke sure the video terminal is on, 

3, IF IT is DESIRED TO run more then one VT8-E, REFER TO 
PARAGRAPH 4,2 OR JF THE JOT TABLE HAS ALREADY BEEN SETUP 
GO TO STEP 4 IN THIS PARAGRAPH, 

4, LOAD ADDRESS 0072 WITH THE "IF" AND "DF" SET TO T*| PROGRAM FIELD 

5, CLEAR ALL SWITCHES, 

4/, IF 32 CHARACTERS P£R LINE SeT SR6 a 1‘, 

7, DEPRESS CLEAR AND CONTINUE’, 
keyboard Test i (standard keys on^yi 

1, A "CURSOR i« WILL be DISPLAYED IN THE TOP LEFT OF THE SCREEN', 

2, CARRIAGE RETURN ENpS THIS TEST aNQ ENTERS KEYBOa r P TEST 2', 

3, TO VERIFY THAT ALL KEYS, (EXCEPT SPECIAL FUNCTION KEYS), ARE 
FUNCTIONING EACH ONE SHOULD BE STRUCK SEVERAL TIMES VERIFYING 
THAT THE CORRECT CHARACTER APPEARS ON THE SCREEN, 

4, IF TOO MANY LINE FEEDS ARE TYPED THE SCREEN WJU BE BLANK, 

5, RUBOUT WILL BACK THE CURSOR UP ONE POSITION, 

KEYBOARD YfST 8 (SPECIAL FUNgTION KEYS) 

1, THIS TEST is ENTERED BY TYPING CARRIAGE RETURN WHILE 

IN KEYBOARD TEST it OR BY STARTING AT ADDRESS 3000, 

2, A "CURSOR 2” WILL BE DISPLAYED IN THE TOP LEFT OF THE SCREEN’, 

3, CARRIAGE RETURN ENDS THIS TEST AND ENTERS KEYBOARD TEST 3’, 

4, to verify that all keys function correctly each one should be 
struck SEVERAL TIMES, ThjS ONLY APPLIES TO THE SPECIAL 
FUNCTION KEYS, 
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KEYBOARD TEST 3 (ALL KEy s > 

1, THIS TEST IS ENTERED BY TYPING CARRIAGE RETURN 
IN TEST 2 OR BY STARTING AT ADDRESS 3200, 

2, a "CURSOR 3" WILL BE DISPLAYED IN THE TOP LEFT OF THE S C REEN‘, 

3, CARRIAGE RETURN ENDS THIS TEST AND STARTS THE PROGRAM AT 
ADDRESS 0200 UNLESS SR OPTIONS PREVENT IT', IF MORE THAN 
ONE VT8-E IS BEING TESTED, THE PROGRAM WILL GO TO KEYBOARD 
TEST 1 ON THE NEXT DEVICE {PARAGRAPH 4',5) AND THEN 
CONTINUE THROUGH UNTIL ALL DEVICES ARE TESTED, 

4, ALL KEYS SHOULD BE STRUCK SEVERAL TIMES WITH THE SENSE 

switch in both positions, check that the position of the 

SWIT.CH is THE SAME AS THE ONE DISPLAYED ON THE SCREEN, 

operating procedure 
SWITCH REGISTER control 


SR0 a 0 NORMAL RUN, 

SR0 » 1 HALT PROGRAM, 


SRI f 0 halt on error, 

SRI ■ 1 NO HALT ON E r ROR, 


SR2 .» 0 
SR2 a 1 


NO LOOP. 

REPEAT PATTERN, 


(SCOPE LOOP) 


SR3 a 0 NORMAL RUN, 

SR3 a 1 REMAIN JN CURRENT TEST, 


SR4 a 0 $0 HERTZ 

SR4 B 1 30 HERTZ 


SR5 a 0 ENABLE BACKGROUND JOB« 

SR3 « i DISABLE BACKGROUND JOB’, 


SR* 9 0 64 CHARACTERS PER LINE, 

SR6 st 32 CHARACTERS PER LINE, 


SR7 = 0 NORMAL, 

SR7 * t ENABLE MANUAL INCREMENT FQR VISUAL TESTS 


SR8 


WITH SR7 5 1 A CHANGE IN SRS CHANGES THE 
PATTERN ON THE SCREEN 


WITH SR7 i 0 AND SR8 s 1 REMAIN IN CURRENT 
SECTION, (MAINTENANCE, DISPLAY, OR KEYBOARD) 

sr9-u place Value of highest memory field in 

THE SR Mi, (EG', 0 FOR 4Ki t For 8K, AND Up 

?0 7 FOR 32K), 




5,2 STARTING ADDRESSES 


5*2,1 0070 » DEVICE CODE MODIFICATION! 


A, SET SR TO 0070, PRESS "LOAD ADDRESS", 

B, SET SR0-5 To THE DEVICE CODE OF THE DISPLAY, 

C, SET SR6«U'T0 THE OEVJCE CODE OF THE KEYBOARD, 

D, PRESS "CLEAR" THEN "CONTINUE", 

E, THE PROGRAM WILL MAKE THE DEVICE CODE CHANCES AND 
MODIFY THE IOT TABLE TO RUN ONLY ONE VT0-E AND THEN 
THE PROGRAM WJLL HALT, 


5,2,2 

0071 

- ENTER AT THE VJSUaL SECTION, 



5,2,3 

0072 

- ENTER AT THE KEYBOARD SECTION, 



5,2,4 

0073 

■ starting a! this address enters a 
DATA BREAKS USING the data in the 
BUFFER AND DISPLAYS THE OUTPUT IN 

test which 

SR To PUT 
THE MO, 

DOES 
I.N THE 

5,2,5 

0074 

• display selected character, 




A, SET SR TO 0074, PRESS "LOAD ADDRESS", 

B, SET THE CHARACTER CODE IN SR5-U, 

C, SET CONTROL BITS FOR CB1,CB2,CB3 AND CB4 IN SRj,»4 RESPECTIVELY AS DESCRIBED BELOW! 


SRI 

0 

0 

i 

1 


SR2 SR.3 

0- NOP 0 

1 EBF 0 

0 BBF 1 

1 EOS 1 


SR4 

0 

1 

0 

l 


NORMAL 

BLINK 

BOLD 

CURSOR 


D, PRESS "CLEAR AND CONTINUE*', 

E, PROGRAMS HALTS, CLEAR ALL SWJTcHES, 

F, S|T SR2~IF A LOOP ON THIS CHARACTER IS DESIRED 
OTHERWISE CONSULT THE SR OPTIONS, 

G, PRESS CONTINUE, 


5 : ,2,6 0075 - MULTIPLE VTB«E*S, THIS TEST JS SETUP TO RUN 4 VT8-E'S 

simultaneously to insure that the vts.e's do not compete 

FDR DATA BREAKS, a STABLE SWIRL PATTERN’SHOULD BE 
DISPLAYED ON ALL 20 LINES OF ALL VT8«E'S, THE FIRST 
VT8»E SHOULD HAVE A SWIRL PATTERN STARTING OFF WITH 

A NUMBER 1 AND THE NEXT WITH A NUMBER 2,ETC,,IF 64 CHAR/LINE THERE WILL BE 
N SPACES AT THE END OF THE LAST LINE*,WHERE N IS THE VT8-E NUMBER*, 

IN ORDER TO RUN 4 VT8-E'S SIMULTANEOUSLY, a lABLE HaS 
BEEN SETUP IN MEMORY AS SHOWN BE^QWl 

LOCATION CONTENTS 

1517 0503 

1520 1513 

1521 2523 

1522 3533 

1523 0000 TERMINATOR 
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LOCATION 1517 CONTAINS THE DEVICE CODES OF A VT8*E 
WITH A DISPLAY DEVICE CODE OF 05 AND A KEYBOARD DEVICE 
CODE OF 03, THE NEXT THREE LOCATIONS CONTAINS DEVICE 
CODES FOR THREE OTHER VT8-E'S,AND THE LAST LOCATION 
CONTAINS ZEROES WHICH IS A TERMINATOR TO THE PROGRAM, 
THESE LOCATIONS MAY BE CHANGED TO ANY OTHER DEVICE 
CODES BUT A HERO LOCATION MUST FOLLOW THE LAST DEVICE 
CODE INSERTED, A HERO LOCATION TERMINATES THE TABLE*. 

5,2,7 0200 - STaNqa r Q STARTING ADD r ESS 

6, ERROR INFORMATION 


ALL ERRORS THAT ARE SOFTWARE DETECTABLE WILL 
RESULT IN A PROGRAM HALT UNLESS PREVENTED BY THE SR, 

REFER TO THE PROGRAM LISTING FOR A DESCRIPTION OF 

THE ERRORS AND UNLESS OTHERWISE STATED ! M THE LISTING THE 

SR MAY BE USED FOR SETTING UP A SCOPE LOOP, 

IF there IS a failure while running alternate VT8-E'S, 

EXAMINE LOCATION 0031 TO OBTAIN THE POINTER ADDRESS TO 
THE IOT TABLE FOR THE DEVICE CODES OF THE FA ILING VT8-E, IF 
LOCATION 0031 CONTAINED A 0024 AND LOCATION 0024 CONTAINED 
A 4543 AS IN THE LAST TABLE IN PARAGRAPH 4,2, THIS WOULD MEAN 
THAT A VT8-E FAILEP'WITH A DISPLAY DEVICE CODE OF 45 AND A 
KEYBOARO DEVICE CODE OF 43, 

7, EXERTION TIME 

THE EXECUTION TIME OF THE MAINTENANCE AND VISUAL TESTS 
IS APPROXIMATELY 17,5 MINUTES, 

b : , program description 

8,1 MAINTENANCE tests 


1', CHECK that KCC WILL CLEAR THE AC, ICKCC} 

the AC IS S E I TO 7777 A Nd tHE KCC I s ISSUED 
AND the AC IS CHECKED TO BE 0’, 

2 1 CHECK THAT KR0 WILL CLEAR THE AC, (CKRB> 

THE AC IS SET TO 7777 AND THEN KRB IS ISSUED 
AND AC0-3 IS CHECKED TO BE CLEAR, 

3, CHECK THA? KRS WILL "INCLUSIVE OR", (CKRS) 

THE AQ is- SET TO 7777 AND THEN KRS IS ISSUED 
AND THE AC J.S CHECKED TO BE 7777, 





4’, CHECK FOR SENSE SWITCH IN THE ”1” POSITION, I SENSE) 

with a clear ac* qpms js issued tq read the state of the 

SENSE SWITCH INTO AC0 AND A CHECK IS MADE TQ 
VERIFY IT WAS REAQ BACK, 

5', CHECK THAT DPUA Will, CLEAR THE AC, (COPLA) 

THE AC IS SET TO 7777 AND THEN QPLA IS ISSUED* THEN 
THE AC IS THEN CHECKED TO BE 0, 

$, CHECK THAT DPSM WILL CLEAR THE AC, (COPSM) 

THE AC IS SET TO 7777 AND THEN DPSM IS ISSUED* THEN 
THE AC IS CHECKED TO BE 0‘, 

7*. TEST That BPCL DOES not AFFECT THE AC. (CDPCL) . 

DPCL IS ISSUED WITH THE AC 5 7777 AND THEN 0000, 

CHECKING EACH TIME THAT THE AC REMAINS UNCHANGED, 

r; CHECK THAT DP.SO WILL CLEAR THE AC. (CQPGO) 

THE AC IS SET TO 7777 AND THEN DPGO IS ISSUED* 

THE AC IS THEN CHECKED TO BE 0, 

CHECK OF THE REAL TIME CLOCK, (CLOCK) 

WAIT FOR THE CLOCK FLAG TQ SET AND THEN ONCE 

IT'S SET CHECK THAT DPCL CLEARED THE FLAG AND 

THAT DPCL WILL NOT SKIP WITH THE FLAG 0, NOW CHECK 

THAT A CLOCK FLAG WILL OCCUR WITHIN APPROXIMATELY 40 MSEC, 

10', CHECK THAT DPGO CAN ENABLE THE CLOCK INTERRUPT ENABLE", <!NU> 

DPGO IS ISSUED WITH THE ACi0001 WHICH SHOULD ENABLE 
THE CLOCK INTERRUPT ENABLE, THE INTERRUPT JS TURNED 
ON AND THE PROGRAM ENTERS A 30 MS, TJME-QU? LOOP 
DURING WHjGH TIME AN INTERRUPT FROM THE CLOCK SHOULD 
TAKE PLACE, 

11*, CHECK THAT DPGO caN DISABLE THE CLOCK INTERRUPT ENABLE, UNT2 

DPGO IS ISSUEQ WITH THE AC»0001 WHICH ENBALES THE 
CLOCK INTERRUPT, NOW QPGO IS ISSUED AGAIN ONLY THIS TIME 
THE AC IS 2ERQ SO THE CLOCK INTERRUPT SHOULD BE DISABLED', 
THE INTERRUPT JS TURNED ON AND THE PROGRAM ENTERS A 
30 MSEC TIME-OUT LOOP WHICH SHOULD TIME-OUT SINCE 
THE CLOCK JS DISABLED, 

12, CHECK THAT INITIALISE CAN DISABLE THE CLOCK INTERRUPT ENABLE', 

DPGO IS ISSUED WITH THE ACU0001 WHICH ENABLES 
THE CLOCK INTERRUPT ENABLE, CAF IS NOW.ISSUED WHICH 
GENERATES INITIALIZE AND SHOULD CLEAR THE CLOCK 
INTERRUPT ENABLE, THE INTERRUPT IS NOW TURNED ON AND 
THE PROGRAM ENTERS A 30 MSEC TJME«OUT LOOP WHICH 
SHOULO TIME"OUT SINCE THE CLOCK IS DISABLED, 
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13i check that thi extended address register and Counter 

CAN BE LOADED AND READ BACK, (EXTA) 

dpsm is issued huh the ac containing the qa t a pattern 

TQ be USED TO TEST'THE EXTENDED STARTING ADDRESS REGISTERS 
AND ACU SET WHICH PLACES AC$*8 INTO THE EXTENDED 
STARTING ADDRESS REGISTER, DPSM IS ISSUED AGAIN QNLV 
THIS TIME WITH ACf0 WHICH LOADS THE CONTENTS OP THE 
EXTENDED STARTING ADDRESS REGISTER INTO THE ADDRESS 
COUNTER, DPMS IS THEN ISSUED TO READ THE CONTENTS 
OP THE EXTENDED ADDRESS COUNTER INTO THE AC, AN 
INCREMENTING PATTERN IS USED STARTING WITH 0, 

14, CHECK THAT THE EXTENDED ADDRESS COUNTER WILL ONLY INCREMENT 
WHEN The ADDRESS COUNTER GOES from 7777 TO 0000, (EXTJN) 

ISSUE- ORLA WITH THE ACs0 WHICH LOADS THE STARTING 
ADDRESS REGISTER WITH 0, NOW ISSUE DPSM WITH THE 
ACi000i which sets the extended starting address 
REGISTER TQ 0', DPSM IS NOW ISSUED WHICH LOADS THE 
STARTING ADDRESS REGISTERS INTO THE ADDRESS 
counter, issue DPMB which DOES A BREAK AND 
CAUSES THE ADDRESS COUNTER TO INCREMENT, THE 
EXTENDED ADDRESS COUNTER IS READ BACK USING DPMS', 

THE ONLY TIME DPMB SHOULD READ ANYTHING BACK INTO 
AC6-8 JS WHEN THE ADDRESS COUNTER OVERPLOWED. 

15', CHECK THAT THE EXTENDED ADDRESS COUNTER WILL 
increment correctly', (EXT) 

USING OPLA SET THE STARTING ADDRESS REGISTER to 
7777, NOW LOAD THE EXTENDED STARTING ADDRESS 
REGISTER (STARTING WITH 0) USING DPSM WITH ACU"1, 

NOW LOAD THE ADDRESS COUNTERS BY ISSUING DPSM 
WITH THE AC*>01 DO A BREAK BY ISSUING OPMB WH.J.SH 
WILL OVERFLOW THE ADDRESS 60UNTER INTO 
THE EXTENDED ADDRESS COUNTER, NOW READ BACK THE 
EXTENDED ADDRESS COUNTER AND CHECK THAT IT WAS 
PROPERLY INCREMENTED, UPDATE THE TEST PATTERN 
BY 1 AND REPEAT THE TEST AGAIN UNTIL THE 
EXTENDED ADDRESS COUNTER INCREMENTS FROM 
0 THROUGH 7 ID 0, 

16‘, CHECK THAT OPGQ CAN LOAD THE EXTENDEO STARTING 
ADDRESS REGISTER, (EOPGQ) 

THE AG IS LOADED WITH 0001 AND DPSM IS ISSUED WHICH 
CLEARS THE EXTENDED STARTING ADDRESS REGISTER AND 
DPSM IS ISSUED AGAIN WITH THE AC HERO WHICH NOW 
LOADS 0 INTO THE EXTENDED STARTING ADDRESS COUNTER", 

DPGO IS ISSUED WITH THE AC«70 WHICH SHOULD SET THE 
EXTENDED STARTING ADDRESS REGISTER TO 7, IN ORDER TO 
VERIFY THAT IT HAPPENED, DPMS IS ISSUED WHICH LOADS THE 
EXTENDED STARTING ADDRESS REGISTER INTO THE EXTENOED 
ADDRESS COUNTER WHICH IS READ INTO THE AC WITH DPMS, 

THE AC SHOULD BE 0070, 



17‘, CHECK THE VT8-E BUFFER USING CONSTANT DATA, {DATA!) 

OBfAlN THE DATA PATTERN aNO DO 31 OR 63 BREAKS TO 
PRIM? the buffer, NOW 00 i more break and VERIFY THAT 
THE DATA PATTERN RECEIVED IS THE SAME ONE THAT WAS SENT, 
EACH PATTERN IS DONE 4096 TIMES, 

DATA PATTERNS USEQI 77771 00001 77771 5232J 25251 

77001 0077) 70071 0770, 

IS, CHECK THE VT8-E BUFFER USING A SPECIAL BINARY COUNT 
PATTERN, (DAT A2) 

A SPECIAL BINARY COUNT PATTERN IS THE BINARY COUNT 
AND THEN THE 1'S COMPLEMENT', EG I (0000J 77771 
0001J 77761 00021 77751 ETC,) 

A, GET THE PATTERN, 

B, DO A SINGLE BREAK, 

C, 32ND OR 6ATH BREAK? 

D, NQ . GO TO G| YES - GO TO E, 

E, SIMULATE THE CORRECT OUTPUT AND CHECK THE 
ACTUAL AGAINST THE SIMULATED, 

F, IF ERROR • HALT (SEE THE LISTING), 

G, UPDATA DATA PATTERN (£Gl IF 0000 THEN 7777| 

IF 7777 THEN 00011 IF 0001 THEN 77761 ETC) 

H, ALL PATTERNS BEEN OUTPUT? 

I, NO « GO TO Aj YES • GO TO NEXT TEST, 

I’', address test (aqdri) 

THIS TEST starts at ADDRESS 0 OF FIELD 0 AND CHECKS 
EVERY ADDRESS IN EVERY FIELD FOR AS MANY FIELDS AS 
SELECTED IN SR9.ll, THE ADDRESS AND ITS COMPLEMENT ARE 
THE DATA PATTERNS USED, 

A, GET THE ADDRESS AND SAVE THE CONTENTS IN THE MO, 

b, get the data pattern and place it in the address*, 

(ADDRESS OR IT? COMPLEMENT) 

C, PQ 32 OR 6« BREAKS ON THE SAME ADDRESS’, 

0, SAVE THE OUTPUT OF THE BUFFER, 

E, RESTORE THE ADDRESS WITH THE CONTENTS OF THE MO, 

F, CHECK THE EXPECTED AGAINST THE ACTUAL, 

G, TERROR • HALT a (SEE LISTING), 

H, UPDATA PATTERN AND ADDRESS, 

I, ALL ADDRESSES CHECKED? 

U, NO ■ GO TQ A) YES - GO TO NEXT TEST, 
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20, CURRENT ADDRESS INCREMENT TEST, (CAINC) 

THIS TEST CHECKS TH A T THE ADDRESS COUNTER INCREMENTS 
CORRECTLY, 

A, LOAD ADDRESS 0000 INTO STARTING ADDRESS REGISTER 1 , 

B, SAVE THE CONTENTS OF THE ApORE s S TO-BE TESTED 
IN THE MQ, 

C, PLACE A VALUE EQUIVALENT TO THE ADDRESS IN THE ADDRESS', 

D, DQ 1 BREAK, 

E, RESTORE THE ADDRESS AND SAVE THE OUTPUT OF THE BUFFER, 

F, HAVE 32 OR 64 BREAKS BEEN PERFORMED? 

G, NO - GO TO Jj YES - NEXT', 

H a IS THE OUTPUT THE SAME AS WHAT WAS EXPECTED? 
u NO - HALT, (SEE LISTING) 

J, +1 TO THE DATA, 

K e HAS ADDRESS 7777 BEEN OUTPUT YET? 

Li NO - 50 TO CJ YES - 50 TO NEXT TEST, 


VISUAL DISPLAY TESTS 


1, DISPLAY A FULL SCREEN OF A SINGLE CHARACTER, (DSCHAR) 

THIS TEST DISPLAYS A FULL SCREEN OF A SINGLE CHARACTER 

FOR 2 SECONDS START IN5 WITH CODE 0040 (SPACE)'AND INCREMENTED 

UP TO CODE 0137 («0, EACH COMPLETE CHARACTER SET IS 

DISPLAYED IN NORMAL, BLINK, BRIGHT, AND THEN FINALLY 

CURSOR MODE, 

A, S£T UP SO SPACE (0040) IS FIRST CHARACTER DISPLAYED, 

B, LOAD BUFFER WITH CHARACTER AND CB2+CB3 CONTROL BITS’, 

C, SET TIMER FOR 2 SECONDS, 

D, DISPLAY CHARACTER FOR DURATION OF TIMER, 

E, manual increment? 

F, NO - NEXT I YE? - GO TO 0, 

5, +1 TO CHARACTER, 

H, CODE 137 »*» BEEN DISPLAYED YET? 

I, NO - 50 TO Bj YES - NEXT, 

J, INCREMENT CB2+CB3 CONTROL WORD 

K, CURSOR CONTROL BEEN SEEN YET? 

L, NO * 50 TCI BJ YES ■ GO TO NEXT TEST, 




2, DISPLAY A RIPPLE PATTERN, (DISRJP) 

THIS TEST DISPLAYS a RJPPLl OR INCREMENTING PATTERN 
QF THE CHARACTER SET ON EACH LINE STARTING WITH CODE 
0040 {SPACE) AND ENDING WJfH CODE 0137 (*) IF JUMPERED 
FOR 64 CHARACTERS PER LINE, HOWEVER IF SET FOR 32 
CHARACTERS PER LINE IT WILL’ REQUIRE 2 LINES TO DISPLAY 
THE CHARACTER SET, 

EG j 

641 | IIMW p # *»-1‘'01M456789II <*>t*ABBDEF5HIJKLMNOPQRSTUVWXYZC/3** 
32’I in#SXSi 0**i•1^01834567891.1 <«>? 

• AEjODEFGHI JKLMNQPQRSTUVWXYHE/3 * * 

the pattern is displayed in normal* blink* bright, 
and FINALLY cursor more, 

A, SET TIMER FOR 5 SECONDS, 

B, LOAD RIPPLE PATTERN, 

C, DISPLAY RIPPLE PATTERN FOR DURATION OF TIMER 1 , 

D, STOP DISPLAY, 

E, INCREMENT THE CB2CB3 CONTROL WORD 

F, CURSOR CONTROL DISPLAYED YET? 

5, NQ - GO TO BJ YES • GO TO NEXT TEST, 

3, display a swirl Pattern (pisswl) 

THIS TEST DISPLAYS a SWIRL PATTERN, 


4, 


eg i i n #sx 

!»#$%$ 

«#sxv 

IN THE CASE OF 64 CHARACTERS PER LINE EACH LINE WILL 
CONTAIN THE ENTIRE CHARACTER SET AND IF 32 CHARACTERS 
PER LINE IT WILL REQUIRE 2 LINES TO DISPLAY THE SET, 
THIS TEST IS RUN WITH CB2CI3 IN THE NORMAL MODI, THE 
•SWIRL IS MOVED OR UPDATED EVERY SECOND, 

display a ripple pattern with all control bits seen. (aid 


THIS TEST IS SIMILAR TO 8 r , Z (2, > EXCEPT EACH COMPLETE 
CHARACTER SET IS SHOWN WITH A DIFFERENT CB2C83 CONTROL 
BIT SET, 


EG | 


ABC (NORMAL) 

ABC (BLINK) 

ABC (BRIGHT) 

ABC (CURSOR) 

ABC (NORMAL) ■ REPEAT 


THE PATTERN IS DISPLAYED FOR 10 SECONDS, 



5, UXNE FEED TEST’, U.FT5T) 

THE ENTIRE SUFFER IS FILLED WITH "CURSOR A 

VERTICAL COLUMN OF "BRIGHT #" IS FORMED WITH »,« 

ON THE LEFT AND LINE FEEDS ON THE RIGHT WHX 
SHOULD PRODUCE A HORIZONTAL MOVEMENT OF THg VERTICAL 
COLUMN OF "BRIGHT *'S?« WITH NOTHING VISUAL TO THE RIGHT 
OF IT, A LINE FEED FAILURE WILL MOST LIKELY DISRUPT 
THE VERTICAL COLUMN AND "CURSOR ?» WILL BE SEEN, IF 
AT ANY TIME "CURSOR ?'« IS SEEN THERE HAS BEEN A FAILURE, 

EG! IL^LINe FEED) mm.*L??7 

ii»»iH7?7 »■> 

I I I ! , * L ? ? ? 

THE COLUMN I? MOVED TO THE RIGHT EVERY .5 SECONDS', 

6, TEST OF "BEGIN BLANK FIELD’ 5 AND "END BLANK FIELD"t (FLDTST) 

THE ENTIRE BUFFER IS FILLED WITH SgT BBF IN THE 

FIRST CHARACTER WHICH WILL BE A "CURSOR ?" AND MOVE EBF 
WHICH WILL SEA "BRIGHT E", THE "BRIGHT 7*S" WHICH 
ARE LOADED BETWEEN BBF AND EFB SHOULD NEVER BE SEEN, IF 
"CURSOR ?" AND/OR "BRIGHT ?" ARE SEEN THIS CONSTITUTES 
AN ERROR 1 , EBF IS MOVED RIGHT AND OOWNi AND WHEN IT REACHES 
THE LOWER RIGHT THE SCREEN SHOULD BE EMPTY', NOW MOVE 
BBF RIGHT AND DOWN EACH TIME PLACING A "BRIGHT B" 

ON THE LEFT OF IT AND ">*S" BEHIND IT', THE TEST IS 
COMPLETE WHEN THE SCREEN IS FULL OF »><S», THE BBF OR 
EBF MOVEMENT TAKES PLACE EVERY ,1 SECONDS, 

7, END OF SCREEN TEST', (EOSTST) 

THIS TEST CHECKS THAT NOTHING PAST THE "END OF SCREEN?) 

CONTROL BIT SHOULD BE SEEN', LOAD THE BUFFER WITH 
"BRIGHT ?", START AT THE UPPER LEFT WITH EOS WHICH WXU 
BE A "CURSOR 7", ON THE LEFT PLACE A "BRIGHT 0" AND BEHIND 
THAT "X'S" 1 , STARTING AT THE UPPER LEFT THE USER SHOULD SEE 
THE SCREEN BEING FILLED WITH "X'S" WITH A "BRIGHT 0" PRECEEDINS 
THEM, TEST IS COMPLETE WHEN "EOS" IS AT THE BOTTQM RIGHT 
OF THE SCREEN AND THE SCREEN IS FULL OF "X<S", IF AT 
ANY TIME A "7" IS SEEN THIS CONSTITUTES A FAILURE, 

EOS IS MOVED EVERY ,1 SECONDS, 

8, SHRINKAGE TEST, {SHRINK) 

PERIODS ARE PLACED IN EACH CORNER OF THE SCREEN WITH 
"CURSOR SPACE" FILLING THE REST OF THE SCREEN, AT 
ALL' TIMES THE "PERIODS" SHOULD REMAIN ALMOST MOTIONLESS, 

THE DURATION OF THE TEST IS 10 SECONDS', 



KEYBOARD tests 


1, KEYBOARD TEST 1 (KEYT?T> 

this test echoes the character typed on the keyboard 

ON THE SCREEN AND CHECKS THAT KIE CAN DISABLE AND 
ENABLE THE KEYBOARD INTERRUPT, KRB IS TESTED FOR READING 
THE KEYBOARD BUFFER AND THAT IT CAN CLEAR THE KEYBOARD 
FLAG, THIS TEST IS ONLY FOR ECHOING CHARACTERS FROH 
THE STANDARD KEYBOARD, 

A, CHECK KEYBOARD FLAG TO BE CLEAR AFT&R INITIALIZATION'. 

B, KEYBOARD FLAG CLEAR? 

C, NQ - HALT {SEE LISTING)! YES - NEXT, 

D, FILL BUFFER WITH ’’CURSOR 

E, DISPLAY "CURSOR 1’’, 

F, WAIT.FOR INPUT FROM THE KEYBOARD, 

G, KEYBOARD FLAG SET yet? NO - GO TO Fj YES • NEXT', 

H, ENABLE fHE KEYBOARD INTERRUPT AND TURN THE INTERRUPT ON, 

I, Dio an INTERRUPT OCCUR? 

J, NO - HALT {SEE LISTING)! YES - NEXT, 

K, DISABLE THE KEYBOARD INTERRUPT AND TURN THE INTERRUPT ON', 

L, DID AN INTERRUPT OCCUR? 

Mr NO - NEXT! YES » HALT {SEE LISTING) 

N, ENABLE THE KEYBOARD INTERRUPT AND TURN THE JNTERUPT ON', 

O, DIO AN INTERRUPT OCCUR? 

P, NO * HALT (SEE LISTING)! YES - NEXT, 

Q, ■ SET AC*7777, 

R, READ THE KEYBOARD BUFFER AND CLEAR THE FLAG (KRB)*, 

S, SAVE THE 7-BIT CODE, 

T, IS THE.KEYBOARD FLAG SET? 

U, NO - NEXT! YE?.- HALT (SEE LISTING), 

V, IF A ’’RUBOUT" DELETE A CHARACTER ON THE SCREEN", 

W, IF A ’’CARRIAGE RETURN” - GO TO THE NEXT TEST, 

X, MOVE CURSOR RIGHT ONE AND INSERT THE NEW CHARACTER* 

Y, IF THE SCREEN fS FILLED WJTH CHARACTERS GO TO A 
H, GQ TO B, 

2, keyboard Test s, (curist) 

THIS TEST WILL DISPLAY IN ’’ENGLISH" THE DEFINITION QF THE 
SPECIAL FUNCTION KEY TYPED, 

EGi UP, DOWN, HOME, EOS, EOL, LEFT, RIGHT, 

AN ILLEGAL CODE WILL DISPLAY "WHAT 

KCF IS CHECKED THAT IT CAN CLEAR THE KEYBOARD FLAG* 

CARRIAGE RETURN ENDS THIS TEST’, 

A, INITIALIZE ANQ DISPLAY "CURSOR 2"', 

B, WAIT pOR KEYBOARD INPUT, 

C, IS THE KEYBOARD FLAG SET? 

0, NO - GO TO CJ YES - NEXT, 

E, CLEAR THE KEYBOARD FLAG WITH KCF, 

F, IS THE KEYBOARD FLAG SET? 

G, NO - NEXT) YES - HALT (SEE LISTING), 

H, SAVE THE 7 BIT CODE, 

I, IF A CARRIAGE RETURN - GO TO THE NEXT TEST, 

J, IF "CURSOR LEFT" DISPLAY "LEFT", 

K, IF ’’CURSOR RIGHT" DISPLAY "RIGHT"', 






L, 

IF 

"CURSOR UP” DISPLAY "UP", 

M, 

IF 

"CURSOR DOWN" DISPLAY "DOWN” 

N, 

IF 

"EQL" DISPLAY "EOL", 

0, 

IF 

"EOS" DISPLAY "EOS"', 

P, 

IF 

"HOME" DISPLAY "HOME", 

NOT I - PI DISPLAY "WHAT ?», 

D, 

IF 

R, 

GO 

TO B, 


3, KEYBOARD TEST 3, {OCT) 

THIS TEST DISPLAYS THE CHARACTER, ASCII CODE, AND 
SENSE SWITCH POSITION, CAE IS CHECKED THAT JX CAN 
CLEAR THE KEYBOARD KEYBOARD FLAG, 

ESI A 3 0301 SW 8 1 
A s 0301 SW « 0 

A, INITIALIZE 

B, DISABLE the KEYBOARD INTERRUPT WITH KIE, 

C, ISSUE CAF WHICH SHOULD ENABLE THE KEYBOARD INTERRUPT*, 
0, DISPLAY "CURSOR 3", 

■E s WAIT FOR INPUT FROM THE KEYBOARD, 

F, KEYBOARD FLAG SET? NO » GO TQ Ej YES - NEXT, 

G, READ CHARACTER FROM THE KEYBOARD BUFFER WITH KRS', 

H, TURN THE INTERRUPT ON*, 

I, DID AN INTERRUPT OCCUR? 

U, NO • ERROR {SEE LISTING?I YES ■ NEXT, 

K, IS THE KEYBOARD FLAG SET? 

L, NO - NEXT I YES - HALT {SEE LISTING), 

M, RESTART DISPLAY, 

N, IF CARRIAGE RETURN WAS TYPED • GO TO NEXT TEST*, 

O, READ THE SWITCH STATUS FROM THE TERMINAL, 

P, IF CODE ”XX40" TO CODE "X137" DISPLAY 
"CHARACTER" 3 AND ASCII CODE, AND 
SWITCH POSITION, EG I A « 0301 SW * 1 

Q, IF. CODE <0040 OR >0137 DISPLAY THE ASCII 

CODE AND SWITCH POSITON, EG I {RUBOUT) 0377 SW * 1 
R s GO TO E, 

9, LISTING 






Ji 


w> 


/VT8-E VIDEO DISPLAY TEST 1 




6050 

6051 


6052 


6053 


6054 

6055 


6056 

6057 


MAINDEC-08-DHVTA-B-L 

vioeo display test 1 


/VT8-E 
/ 

/ALPHA-NUMERIC 
/ 

/COPYRIGHT 1’72 
/ 

/PROGRAMMER! ED FORTMILLER 
/ 

/ 

/VT8-C EQUATE STATEMENTS! 


PAL10 V141 23-FEBA73 

MaI.NOES-28-oHVTa-b-L 


14|18 PAGE 1 


19731 DIGITAL EQUIPMENT CORPORATION, MAYNARDi MASS, 01754', 


DPLA-6050 

DPOO.6051 


OPSM-6052 


DPMB-6053 


OPMQ-6054 

DPMS-6055 


OPcL-6056 

OPBELL"6057 


/LOAD STARTING ADDRESS OF DATA BUFFER', 
/AC0-11 -^STARTING ADDRESS REGISTER, 0. 


>>AC, 


/LOAD STARTING EXTENDED ADDRESS or DATA BUFFER’, 
/AC6-8 -OEXTEnDEO ADDRESS REGISTER, 

/GO . start display after next vertical retrace in 

/ONE OF FOUR MOOES SPECIFIED BY AC10,il, 

/AC10 AC11 

/ 0 0 ALPHA-NUMERIC) INTERRUPT DISABLED 

/ 0 1 ALPHA-NUMERIC) INTERRUPT ENABLED 

/I 0 GRAPHIC) INTERRUPT DISABLED', 

/l 1 GRAPHIC) INTERRUPT ENABLED", 

/ 

/0 —> AC, 

/STOP DISPLAY, INHIBIT VIDEO AND FURTHER 
/DEVICE INITIATED BREAKS', 

/ENTER MAINTENANCE MODE AND IF ACli-1, 

/AC6-8 »«>EXT, STARTING ADDRESS REGISTER) 

/IF AC11-01 PREPARE FOR SINGLE DATA BREAK’, 
/(STARTING ADOR REG)—>AODR COUNTER(CA), 

/0 —> AC, 

/MAINTENANCE INSTRUCTION’, 

/PERFORM A SINGLE ONE-CYCLE DATA BREAK', 

/C(BREAK ADDRESS)-.>INTEPFACF. DATA BUFFER, 

/BREAK ADDR+1 —> BREAK ADDR REGISTER, 

/MAINTENANCE INSTRUCTION’. 

/READ DATA BUFFER (DATA BUFFER)—> AC0-11, 

/MAINTENANCE INSTRUCTION' 

/READ EXTENDED BREAK ADDRESS REGISTER 
/AND SENSE SWITCH (EXT ADDR REG) —> AC6-8, 

/skip on real tjme clock flag and clear if set - , 

/GENERATE A ,5 SECOND BURST OF 1,56 KHZ TONE', 


7402 

7604 


/EQUATE STATEMENTS FOR CREF LISTING! 


HLT-7402 

l.AS-7604 


/HALT, 

/READ SWITCHES, 
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7404 

7002 


7421 

7501 

7621 

7521 

7701 

7721 



0000 

7000 


OSR-7404 /INCLUSIVE "OR" SWITCHES TO AC*. 

BsW-7002 /SWAP BYTEs IN AC, 


/EQUATE STATEMENTS FOR THE MQ', 


MQL-7421 
MQA-7501 
CAM-7621 
SWP-7521 
ACL 3 7701 
CLASWP-7721 


/LOAD MQ FROM AC THEN CLEAR AC’, 
/INCLUSIVE "OR" THE MQ WITH THE AC, 
/CLEAR AC AND MQ', 

/SWAP AC AND MQ, 

/LOAD MQ IN TO AC. 

/LOAO AC FROM MQ THEN CLEAR MQ’, 


/MISCELLANEOUS EQUATE STATEMENTS! 

OPEN-0000 /PROGRAM MODIFIABLE', 

FUTUREsNOP /PATCH SPACE, 


/EQUATE STATEMENTS FOR PROCESSOR IDT'Sj 


6000 SKON-6000 /SKIP IF INTERRUPT ON, AND TURN OFF, 

6001 ION = 6001 /TURN INTERRUPT ON’, 

6002 IOF-6002 /TURN INTERRUPT OFF, 

6003 SRQ-6003 /SKIP ON INTERRUPT REQUEST’, 

6004 GTF-6004 /get INTERRUPT FLAGS’, 

6005 RTF-6005 /RESTORE INTERRUPT FLAGS’. 

6007 CAF-6007 /CLEAR ALL FLAGS, AC AND LINK’, 

/EQUATE STATEMENTS FOR MEMORY EXTENSION! 


6214 ROF-6214 
6224 RJF-6224 
6234 RIB-6234 
6244 RMF-6244 
6201 CQF-CDF 


/READ DATA FIELD', 

/READ INSTRUCTION FIELD', 
/READ INTERRUPT BUFFER’, 
/RESTORE MEMORY F JELD, 
/CHANGE DATA FIELD’ 


/EQUATE STATEMENTS FOR KEYBOARD) 


6030 

KCP-6030 

/CLEAR KEYBOARD FLAG', 


6031 

KSF-6031 

/SKIP ON KEYBOARD FLAG’, 


6032 

KCC-6032 

/clear keyboard flag AND 

AC, 

6034 

KRS-6034 

/"OR" KEYBOARD 8UFFER WITH AC 5-: 
/l —>AC4i 0—PAC0-3, 

6035 

KIE-6035 

/ENABLE INTERRUPT if AC 
/DISABLE INTERRUPT IF AC 

ii - 1, 
li = c. 

6036 

KRB-KCC KRS 

/SEE "KCC" ANP "KRS"', 



/DEFINES! 

4577 UOPLAfJMS I CZQPLA 
4576 UDPGo-JMS l CZOPGO 
4575 U0PSM?UMS J CHOPSM 
4574 UDPMBfJMS I CHDPMB 
4573 UDPMOsJMS I CZDPMD 
4572 UDPMS-JMS I CZOPMS 
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/VT8-E 


m 


4571 

UQPCLsUMS I 

CZDPCL 

4570 

UOPSELBOMS I 

CZDPBEL 

4567 

XOPGOaJMS I 

CDPGOX 

4566 

SETUPsJMS I 

CSETUPX 

4565 

SHOW*JMS I 

CSHOWX 

4564 

LOOP"JMS I 

CXLOOP 

4040 

HOMEDFBUMS 

HOME 

4543 

SRlaJMS I 

CSW1 

4562 

SR1A»JM5 I 

CSW1A 

4561 

SR2BJMS I 

CSW2 

4560 

SRSbJMS I 

CSW3 

4557 

SR4BJMS I 

CSW6 

4556 

SR7»JMS I 

CSW7 


/CONTROL WORq DEFINES! 

1000 

EBFal000 


2000 

8BF»2000 


3000 

EOS«3000 


0000 

NQRMALB0000 


0200 

S LINKo0200 


0400 

BRIGHTB0400 


0600 

CURSORB0600 

/OTHER DEFINES) 


0036 

LFAODbTEMPH 


0037 

LFENOaTEMP3 


0040 

LENGTH-TEMP4 


0041 

IST0REBTEMP5 


0177 

B1T7B177 


0200 

BEO!NI0200 


4700 

BUFFER?4700 


7400 

8WA*BUFFER+100*2400 

0375 

ALTM0DB375 


0377 

RUB0UT»377 


0212 

LINEFDB212 


0215 

CARRETS215 


0010 

CURLFT*10 


0030 

CURRHTB30 


0032 

CURUPB32 


0013 

CUR0WNB13 


0035 

CURHME835 


0036 

EOL’36 


0037 

E0Sa37 



/MACRO) 

DEFINE NPAGE 

< JMP I {',+20087600 /CO TO NEXT PAOE> 


/STARTING ADDRESS) 
/ 

/ 0200 


VIDEO DISPLAY TEST 1 MAINDEC-08-OHVTA-B-L 
/ 

/SWITCH REGISTER SETTINGS! 

/ 

/ SR0 * 0 

/ SR0 b 1 

/ 

/ SRI * 0 

/ SRI » 1 

/ 

/ SR2 a 0 

/ SR2 n 1 

/ 

/ SR3 a 0 

/ SR! u 1 

/ 

/ SR4 a 0 

/ SR 4 = 1 

/ 

/ SRS b 0 

/ SR5 a 1 

/ 

/ SR6 a 0 

/ SR6 B 1 

/ 

/ SR? a 0 

/ SR7 a 1 

/ 

/ SRB 

/ 

/ 

/ 

/ 

/ 

/ SR?-U 

/ 

/ 

/ 

/REQUIRED SUFFER SIZES! 

/ 32 CHAR ALPHA-NUMERIC 

/ 64 CHAR ALPHA-NUMERIC 

/ GRAPHICS 
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NORMAL RUN", 

HALT PROGRAM'. 

HALT on error', 

NO HALT ON ERROR', 

NO LOOP, 

repeat pattern*, 

NORMAL RUN', 

REMAIN IN TEST’, 

40 CYCLE', 

50 CY5LE', 

ENAB.LE BACKGROUND JOB’, 

DISABLE BACKGROUND JOB*, 

64 CHARACTER', 

32 CHARACTER', 

NORMAL, 

ENABLE MANUAL INCREMENT'. 

WITH SR7 S 1 A CHANGE IN SR8 INCREMENTS 
THE PATTERN, VISUAL TESTS ONLY) 

WJTH SR7 0 0 and SR8 s i REMAIN IN 
SECTION, 

PLACE VALUE OF HIGHEST MEMORY FIELD, 
(E',G, 0 FOR 4K, i FOR 8K, AND gP TO 
7 FOR 32K 


20 LINES * 32 CHAR PER LINE b 0640 (DECIMAL'! 

20 LINES # 64 CHAR PER LINE a 1280 (DECIMAL) 

192 DOTS (.3) PERLINE * 200 LINES a 3200 (DECIMAL) 



0000 


0000 

0000 

ZERO, 

0001 

0000 

ONE, 

0002 

0000 

TWO, 

0003 

0000 

THREE 

0004 

0000 

FOUR, 

0005 

0000 

FIVE, 

0006 

0000 

SIX, 

0007 

0000 

SEVEN 


0010 



• 0 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 


*10 
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0010 

0000 

AU0i 

OPEN 

0011 

0000 

ASH, 

OPEN 

0012 

0000 

A112, 

OPEN 

0013 

0000 

AJ13, 

OPEN 

0014 

0000 

A114, 

OPEN 

0015 

0000 

AI15, 

OPEN 

0016 

0000 

AJ16, 

OPEN 

0017 

0000 

AI17, 

OPEN 


0020 


•20 

0020 

0503 

IOTTAB, 

, 0503 

0021 

0000 


OPEN 

0022 

0000 


OPEN 

0023 

0000 


OPEN 

0024 

0000 


OPEN 

0025 

0000 


OPEN 

0026 

0000 


OPEN 

0027 

0000 


OPEN 

0030 

0000 


0 

0031 

0000 

WQRKVT 

, OPEN 



/these 

LOCATIONS ARE CLEAl 

0032 

0000 

GQATA, 

OPEN 

0033 

0000 

BOATA, 

OPEN 

0034 

0000 

AQATA, 

OPEN 

0035 

0000 

tempi, 

OPEN 

0036 

0000 

TEMP2, 

OPEN 

0037 

0000 

TEMP3, 

OPEN 

0040 

0000 

TEMP4, 

OPEN 

0041 

0000 

TEMP5, 

OPEN 

0042 

0000 

COUNTli 

i OPEN 

004J 

0000 

C0UNT2, 

i OPEN 

0044 

0000 

CQUNT3, 

i OPEN 

0045 

0000 

TIME, 

OPEN 

0046 

0000 

T I HEX, 

OPEN 

0047 

0000 

CB2CB3; 

i OPEN 

0050 

0000 

CHAR, 

OPEN 

0051 

0000 

PSET, 

OPEN 

0052 

0000 

FLO, 

OPEN 

0053 

0000 

AC, 

OPEN 

0054 

0000 

MQ, 

OPEN 

0055 

0000 

LINK, 

OPEN 

0056 

0000 

RETUJMi 

i OPEN 

0057 

0000 

I0PSM, 

OPEN 



/THIS ROUTINE SETS THE DF, 

0060 

0000 

HOME, 

OPEN 

0061 

6224 


RIF 

0062 

1155 


TAO (CDF 0( 

VIDEO DISPLAY 

TEST 1 

MAINDEC-08-DHVTA.: 

0063 

3064 


OCA ,+i 

0064 

0000 


OPEN 

0065 

5460 


UMP I HOME 


0070 


*70 



/SPECIAL STARTING ADORES! 

0070 

5754' 


UMP OVCOO 

0071 

5753' 


JMP DSCHAR-1 

0072 

5752' 


JMP KEYTST-1 

0073 

5751' 


JMP OP 

0074 

5750' 


JMP SETCHR 

0075 

5747' 


JMP MULVT8 


0200 


*200 

0200 

4355 


JMS INI TOC 


/CONTAINS a "DPSM'l or a "NOP", 
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/CHANGE DF', 

/EXIT OF NOW s'S IF, 


/THIS special STARTING ADDRESS IS USED TO. 

/CHANGE DEVICE CODES’, 

/SR0 i 51 DISPLAY 
/SR6 -111 KEYBOARD 

/THIS STARTS THE PROGRAM AT THE VISUAL SECTION’, 
/THIS STARTS THE PROGRAM A T THE KEYBOARD SECTION, 
/THJS TEST DOES CONTINUOUS MAINTENANCE BREAKS 
/USING THE DATA PATTERN IN THE SR AND 
/DISPLAYS THE OUTPUT IN THE MQ', 

/this test will display a full screen of 

/THE CHARACTER PLACED IN THE SR, AFTER 
/PRESSING CONTINUE, SELECT DESIRED SR OPTIONS', 

/THJS special starting address IS USED 
/TO RUN A SWIRL' PATTERN ON 4 VTBE'S 
/SIMULTANEOUSLY, 


/INITALJZE TO THE FIRST DEVICE CODE 


/TEST THAT KCC WILL CLEAR THE AC, 


02 0 1 

4566 

CKCC, 

SETUP 


/INIT 


0202 

7240 


cla cma 


/7777 


0203 

6032 

KEY17, 

KCC 


/CLEAR KBRD FLAG AND 

AC 

0204 

7450 


SNA 


/IS AC clear? 


0205 

5210 


JMP 

,+3 

/YES, KCC 8K 


0206 

4562 


SR1A 


/HALT? 


0207 

7402 


HUT 


/KCC FAILED TO CLEAR 
/AC SHOULD BE 0'. 

THE ac 

0210 

4564 


LOOP 


/ 


0211 

0202 


KEY I7-1 


/RETURN POINTER 


0212 

5201 


JMP 

CKCC 

/YES, 




/check 

that krb 

will CLEAR the 

AC i 


0213 

4566 

• CKRB, 

SETUP 


/INIT 


0214 

7240 


CLA CMA 


/7777 


0215 

6036 

KEYJ8, 

KRB 


/TRY TO CLEAR AC 


0216 

0146 


ANO 

C7400 

/JUST CHECH 0-3 


0217 

7450 


SNA 


/CLEAR? 


0220 

5223 


JMP 

■ +3 

/OK 


0221 

4562 


SR1A 


/halt? 




/YTS-E 


VIDEO 1 

DISPLAY 

TEST 1 

MAJNOEC- 

0B-OHVTA-B=L • 
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0222 

7402 


HLI 


/KRS FAILED TO CLEAR THE AC0-3 
/ac contains the result of krb - , 

/AC SHOULD BE 0 AT THIS TIME, 

0223 

4564 


LOOP 


/ 

0224 

0214 


KEYI0-1 


/RETURN POINTER 

0225 

5213 


JMP 

CKRB 

/YES,' 



/CHECK 

THAT krs 

WILL NOT CLEAR 

THE AC, 

0226 

4566 

CKRSi 

SETUP 


/INIT 

0227 

7240 


CLA CMA 


/7777 

0230 

6034 

KEYJ9, 

KRS 


/INCLUSIVE OR TO Ae, 

0231 

7421 


MQL 


/SAVE AC 

0232 

7501 


MQA 


/RESTORE AB 

0233 

7101 


CLU I AC 


/+1 TO HAKE AO 0 IF OK 

0234 

7650 


SNA CLA 


/AC NOW 07 

0235 

5241 


JMP 

.*4 

/YES, KRS OK 

0236 

4563 


SRI 


/HALT? 

0237 

7501 


MQA 


/RESTORE SAD AC 

0240 

7402 


HLT 


/KRS DID NO INCLUSIVE OR WITH AC 
/AO SHOULD BE 7777', 

0241 

4564 


LOOP 


/ 

0242 

0227 


CKRS+1 


/RETURN POINTER 

0243 

5226 


JMP 

CKRS 

/YES 


14118 


PACE 166 




/CHECK 

FOR THE 

SENSE SWITCH ON 

DISPLAY TO aE SET| 

0244 

4566 

sense, 

setup 


/INIT 

0245 

4572 


UOPMS 


/REAO SWITCH 

0246 

7104 


CLL RAL 


/PUT IN LINK 

0247 

7210 


CLA RAR 


/PUT JT BACK IN AC WITH REST OF AC CLEAR', 

0250 

7440 


SEA 


/SENSE SWITCH IN THE »i» POSITION? 

0251 

5254 


JMP 

i+3 

/YES, 

0252 

4562 


SR1A 


/halt? 

0253 

7402 


HLT 


/SENSE SWITCH IN THE »0» POSITION 






/OR OPMS CANNOT READ IT BACK, 






/AC CONTAINS WHAt WAS READ FROM 






/THE STATUS RESISTER', AC SHOULD 






/BE 4000‘, 

0254 

4564 


LOOP 


/ 

0255 

0245 


sense+i 


/RETURN POINTER 

0256 

5244 


JHP 

SENSE 

/YES,' 



/TEST 

THAT QPLA 

WILL CLEAR THE 

AC, 

0257 

4566 

COPLA, 

setup 


/INITIALIZE 

0260 

7340 


CLA CLL 

CMA 

/7777 ' 

0261 

4577 


UOPLA 


/ISSUE DPLA 

0262 

7450 


SNA 


/DID THE AC GET CLEARED? 

0263 

5266 


JMP 

, +3 

/YES, A-OKAY 

0264 

4562 


SRiA 


/SHALL WE HALT? 

0265 

7402 


HLT 


/DPLA FAILED TO CLEAR THE AC, 


/VT6-E 


IDEO DISPLAY 

TEST 1 
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/AC SHQULQ BE 0'. 


0266 

4564 


LOOP 


/ 


0267 

0260 


cdpla+i 


/RETURN POINTER 


0270 

5257 


JMP 

COPLA 

/YES, 




/TEST 

THAT DPSM 

WILL CLEAR THE 

AO 


0271 

4566 

COPSM, 

i SETUP 


/initialize, 


0272 

7340 


CLA CLL 

CMA 

/7777 


0273 

4575 


uqpsm 


-/ISSUE DPSM 


0274 

7450 


SNA 


/DID THE AC GET 

CLEARED? 

0275 

5300 


JMP 

, +3 

/YES, A-OKAY 


0276 

4562 


SRiA 


/HALT7 


0277 

7402 


HLT 


/DPSM FAILED TO 
/AC SHOULD BE 0', 

CLEAR' THE AC 

0300 

4564 


LOOP 


/ 


0301 

0272 


CQPSM*! 


/RETURN POINTER 


0302 

5271 


JMP 

COPSM 

/YES, 





/TEST 

THAT DPCL 

WILL NOT 

AFFECT THE ACI 

0303 

4566 

COPCLi 

SETUP 


/initialize 

0304 

0305 

7340 

4571 



CMA 

/7777 

/ISSUE DPCL 

0306 

7000 


NOP 


/COVERS NO SKIP CONDITION 

0307 

7421 


MQL 


/SAVE AC 

0310 

7501 


MQA 


/RESTORE AC 

0311 

7001 


I AC 


/H TO MAKE AC 0 FOR CHECK', 

0312 

7450 


SNA 


/WAS AC 7777 AFTER DPCL? 

0313 

5317 


JMP 

,*4 

/YES, 

0314 

7501 


MQA 


/GET AC BACK 

0315 

4562 


SRIA 


/HALT? 

0316 

7402 


HLT 


/DPCL DID SOMETHING TO THE AC 
/AC SHOULD BE 7777', 

0317 

4561 


SR2 


/LOOP? 

0320 

5304 


JMP 

CDPCL+1 

/YES, 

0321 

7300 

COPCL1 

, CLA CLL 


/0 

0322 

4571 


UQPCL 


/ISSUE DPCL 

0323 

7000 


NOP 


/IN CASE OF SKIP 

0324 

7450 


SNA 


/WAS AC STILL 0? 

0325 

5330 


JMP 

,+3 

/YES, 

0326 

0327 

4562 

7402 


SRiA 

HLT 


/HALT? 

/DPCL SET SOMETHING IN THE AC 
/AC SHOULD BE 0', 

0330 

4561 


SR2 


' /LOOP? 

0331 

5321 


JMP 

COPCL1 

/YES, 

0332 

2035 


isz 

TEMPI 

/DONE 4096 TIMES? 

0333 

5304 


JMP 

COPCL+1 

/NO, 

0334 

4560 


SR3 


/REMAIN IN THIS TEST? 

0335 

5303 


JMP 

COPCL 

/YES, 
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/TEST THAT DPGO WILL CLEAR THE ACi 


/VT8-E 


/VTB-E 


JDEO 1 

DISPLAY 

TEST 1 

MAINQEC-0S-OHVTA-B-L 

0336 

4566 

CQPGO, 

SETUP 

0337 

7340 


CLA OLL CMA 

0340 

4576 


UDPGO 

0341 

7421 


MQL 

0342 

4575 


UDPSM 

0343 

7501 


MQA 

0344 

7650 


SNA CLA 

0345 

5351 


JMP ,+4 

0346 

4563 


SRI 

0347 

7501 


MQA 

0350 

7402 


HLT 


0351 

4564 

LOOP 


0352 

0337 

CDPGO+l 


0353 

5336 

JMP 

NPAGE 

COPGO 

0354 

5777 

JMP I 

< ,+20047600 

0355 

0000 

INIlDCi 0 


0356 

1376 

TAD 

! JOT TAB 

0357 

3051 

OCA 

WORKVT 

0360 

4775' 

JMS 

DEVCOO 

0361 

5755 

JMP I 

IN J TOC 
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/INITIALIZE', 

/SET AC TO 7777 

/GO, THIS SHOULD ALSO 0 THE AC, 
/SAVE THE AC IN THE HQ', 

/STOP 

/MQ TO AC, 

/HAS AC 07 
/YES, 4-OKAY', 

/HALTT 

/SAD AC TO THE AC’, 

/DPGO FAILED TO CLEAR THE AC, 
/CONTENTS OF AC AFTER DPGO ARE 
/IN THE AC AT THIS TIME', 

/AC SHOULD BE 0, 

/ 

/RETURN POINTER 
/YES, 

/GO TO NEXT PAGE 


0375 

4123 





0376 

0020 





0377 

0400 






0400 


PAGE 





/TEST 

OF THE 

REAL TIME CLOCK 1 


0400 

4566 

CLOCKi 

SETUP 


/INITIALIZE 

0401 

3035 


DCA 

TEMPI 

/0 .»> tempi FOR TIMER’. 

0402 

6056 

CLOCK1 

1 OPCL 


/WAIT FOR THE FLAG TO SET 

0403 

5202 


JMP 

1 -i 

/GO HAJT SOME MORE’, 

0404 

6056 

CLOCK2 

1 OPCL 


/IS JT SET BY ANY CHANCE? 

0405 

5210 


JMP 

, +3 

/NO, FLAG OK', 

0406 

4562 


SRiA 


/halt? 

0407 

7402 


HLT 


/THE CLOCK FLAG SET IMMMEDIATELY 
/AFTER BEING SET OR DPCL DID NOT 
/CLEAR THE CLOCK FLAG OR SKIPPED ON 

0410 

4561 


SRH 


/LOOPT 

0411 

5202 


JMP 

CLOCKI 

/YES, 

0412 

“571 

CL0CK3 

1 UOPCL 


/MAKE SURE IT SETS BY ABOUT 40 MSEC 

0413 

7410 


SKP 


/NOT SET YET', 

0414 

5221 


JMP 

1 *5 

/SET, OK', 

0415 

2035 


isz 

TEMPI 

/"GROSS)' TIMER’, 

0416 

5212 


JMP 

CL0CK3 

/GO TIME SOME MORE", 

0417 

4562 


SRIA 


/FLAG NOT SET', SHALL WE HALT? 
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0420 

7402 

HLT 


0421 

4561 

SRZ 


0422 

5201 

JMP 

CLOCKI*! 

0423 

“560 

SR3 


0424 

5200 

JMP 

CLOCK 


/test that the Interrupt enable 

/USING DPGO WITH AC11 a 1', 


0425 

4566 

INTI, 

setup 

DECIMAL 

c-i0 

0426 

1145 


TAD 

OCTAL 


0427 

3042 


OCA 

COUNT1 

0430 

4777' 


JMS 

INTLD 

0431 

0440 


INT1B 


0432 

7301 

INT1A 1 

CLA CLL 

I AC 

0433 

“576 


UDPGO 


0434 

“575 


UDPSM 


0435 

6001 


ION 


0436 

“776 


JMS I 

(WAIT 

0437 

5243 


JMP 

JNT1C 

0440 

4571 

INT1B, 

UDPCL 


0441 

7402 


HLT 



0442 

5246 

JMP 

INTIO 

0443 

“563 

INT1C, SRI 


0444 

7402 

HLT 


0445 

6002 

I OF 


0446 

4564 

INT1D, LOOP 


0447 

0432 

INT1A 


0450 

5225 

JMP 

INtl 



/TEST THaT THE 

interrupt 



/BY ISSUING DPGO WITH A 1 

0451 

4566 

INT2, SETUP 




DECIMAL 


0452 

1145 

TAD 

C«10 



OCTAL 


0453 

3042 

DCA 

COUNT1 

0454 

4777' 

JMS 

INTLD 

0455 

0466 

INT2B 


0456 

7301 

INT2A, OLA CLL 

I AC 

0457 

4576 

UOPGO 


0460 

4576 

UDPGO 
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/FLAG NOT SET IN ABOUT 40 MSEC, 

/OR OPCL FAILED', 

/FLAG'SHOUD SET IN 16',67 MSEC FOR 60 HE, 

/FLAG SHOULD SET IN 20’,0 MSEC FOR 50 HZ, 

/LOOP? 

/yes, 

/REMAIN IN THIS TEST? 

/YES, 


can be set 


/general INITIALIZE, 

/ 

/NUMBER OF PASSES AS MINUS 
/ 

/SAVE 

/SET UP FOR INTERRUPT', 

/INT RETURN ADDRESS 
/ENABLE INT', BIT 

/start display 

/STOP 

/TURN INTERRUPT SYSTEM ON', 

/HAJT A80UT 30 MSEC, 

/NQ INTERRUPT', 

/HAS IT THE CLOCK FLAG? 

/NO, ILLEGAL INTERRUPT 
/NO SCOPE LOOPING PROVIDED, 

/NO ATTEMPT WILL BE MADE TO 
/CLEAR THE ILLEGAL INTERRUPT, 

/RESTART AT BEGINNING OF TEST OR PROGRAM', 

/CORRECT INTERRUPT 

/HALTT 

/WITH CLOCK INTERRUPT ENABLED 
/THE CLOCK FLAG FAILED TO INTERRUPT, 

/ 

/ 

/RETURN POINTER 
/YES, 

CAN BE DISABLED 


/GENERAL INITIALIZE, 

/ 

/NUMBER OF PASSES AS MINUS, 
/ 

/SAVE, 

/SET UP FOR INTERRUPTS’, 
/RETURN ADDRESS 
/UDPGO 
/GO 

/DISABLE INT", 



& 
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0461 

4575 


UD p SM 


/STOP 


0462 

6001 


ION 


/Enable interrupt ststemi 


0463 

4776 


JMS I 

< WAIT 

/WAIT ABOUT 30 MSEC, 


0464 

6002 


I0P 


/DISABLE INT‘, SYSTEM 1 , / 


0465 

5872 


JMP 

INT2C 

/■DISABLE FUNCTIONED OK' 


0466 

4571 

INT2S, 

UDPCL 


/CLOCK FLAG CAUSE INT? 


0467 

7402 


HUT 


/NO, ILLEGAL INTERRUPT, 

/NO SCOPE LOOP PROVIDED OR NO 

ATTEMPT 






/WILL BE MADE BY THIS PROGRAM 
/RESTART PROGRAM OR TEST FOR 

TO LOCATE IT' 
RECOVERY', 

0470 

4562 


SR1A 


/HALT 7 

0471 

7402 


HUT 


/OPGO FAILED TO DISABLE THE 
/CLOCK INTERRUPT FACILITY', 


0472 

4564 

JNT2C, 

LOOP 


/ 


0473 

0456 


INT2A 


/RETURN POINTER 


0474 

5851 


JMP 

INt2 

/YES, 



/TEST THAT INITIALIZE CAN disable the INTERRUPT ENABLE', 


0475 

4566 

JNT3, 

SETUP 


/GENERAL INITIALIZE, 

0476 

1375 


TAD 

<« 4BJT7 EOS 

/LOAD THE BUFFER WJTh 

0477 

4544 


JMS I 

CLOBUFF 

/1NV JSABLE CHARACTERS', 

/SETUP FOR INTERRUPTS', 

0500 

4777' 


JMS 

INTLD 

0501 

0511 


INT3B 


/RETURN ADDRESS 

0502 

7301 

INT3A, 

CLA CLL 

l AO 

/enable bit 

0503 

4576 


UCPGO 


/CO, 

0504 

6007 


OAF 


/DISABLE THE INT ENABLE 

0505 

6001 


ION 


/ENABLE INTERRUPTS 

0506 

4776 


JMS I 

(WAIT 

/WAIT ABOUT 30 MSEC, 

0507 

6002 


IOP 


/TURN INT OFF 

0510 

5313 


JMP 

lwT3C 

/OAF FUNCTIONED OK', 

0511 

4562 

INT3B, 

SR1A 


/halt? 

0512 

7402 


HLf 


/initialise failed to Disable 

/THE CLOCK INTERRUPT ENABLE f,f, OR an 
/ILLEGAL INTERRUPT OCCURRED, 

0513 

4561 

INT3C, 

SR2 


/LOOP? 

0514 

5302 


JMP 

INT3 A 

/YES, 

0515 

4560 


SR3 


/REMAIN IN TEST? 

0516 

5275 


JMP 

INT3 

/YES, 


/THIS TEST CHECKS tHAT THE "EXTENDED STARTING ADDRESS REGISTER" 
/C*N BE LOADED ANd READ BACK, AN INCREMENTING PATTERN IS USED 
/DOING EACH PATTERN 4096 TIMES, 


0517 

4566 

EXT A, 

setup 


/INITIALISE, 




DECIMAL 


/ 

0520 

1143 


TAD 

C-8 

/ 




OCfAL 


/ 

0521 

3036 


OCA 

TEMP2 

/ALL « PATTERNS OF THE EXT REG, 

0522 

1032 

EXTA2, 

TAD 

GOATA 

/GET PATTERN 

0523 

7421 


MQL 


/SAVE IT IN THE "MQ" 

0524 

7501 

EKTA3, 

MQA 


/MO »■> AC 

0525 

7101 


CLL I AC 


/SET AC11 SO THE - 
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0526 

4575 

UoPSM 


/ext starting Reg will' be loaded. 

0527 

4575 

UPPSM 


/ext 5TARTING REG A-> ADOR COUNTER 

0530 

4572 

udpms 


/read"back the ext starting REG, 

0531 

0142 

AND 

C1777 

/ONLY THE EXT BITS', 

0532 

3033 

OCA 

BDATA 

/SAVE THE PATTERN, 

0533 

7501 

MQA 


/"SHOULD BE" TO THE AC', 

0534 

7041 

CMA I AC 


/NEGATE IT 

0535 

1033 

TAD 

BOATA 

/AND ADD BOATA TO AC 

0536 

7650 

SNA CLA 


/DID WE RECEIVE WHAT WE SENT? 

0537 

5343 

JMP 

,44 

/YES, A-OKAY 1 , 

0540 

4563 

SRi 


/halt? 

0541 

1033 

TAO 

BOATA 

/"RECEIVED" FROM THE EXT REG TO THE AC 

0542 

7402 

HLT 


/EXTENDED STARTING ADDRESS REGISTER 
/NOT BEING LOADED OR IT CANNOT BE 

/read back; 

/MQaSENT | ACbRECEIVED’, 

0543 

4561 

SR2 


/LOOP ON SAME DATA? 

0544 

5324 

JMP 

EXT A3 

/YES, 

0545 

2035 

ISS 

TEMPI 

/DONE THIS PATTERN 4096 TIMES? 

0546 

5324 

JMP 

EXT A3 

/NO, REPEAT 

0547 

7501 

MQA 


/UPDATE THE • 

0530 

1141 

TAD 

C10 

/pattern; 

0551 

2036 

ISS 

TEMP2 

/ALL PATTERNS DONE? 

0552 

5322 

JMP 

EXTA2 

/NO, 

0553 

4560 

SR3 


/YES, REMAIN IN THIS TEST? 

0554 

5317 

JMP 

NPAGE 

EXTA 

/YES, 

0555 

5774 

JMP I 

(,*20047600 

/GO TO NEXT PAGE 


0574 

0600 





0575 

3040 





0576 

4400 





0577 

4163 






0600 


PAGE 





/TEST 

THAT *1 TO 

THE 

EXTENDED ADDRESS COUNTER 



/WILL 

only occur 

WHEN 

THE ADDRESS COUNTER 



/INCREMENT? FROM 

7777 

—> 0000', 


0034 

ADOR'AOATA 




0032 

EXTADRiGOATA 



0600 

4566 

EXT IN, 

setup 


/INITIALISE', 

0601 

1034 

EXTJN1 

, TAD 

ADDR 

/LOAD THE "ADDRESS REGISTER" • 

0602 

4577 


UPPLA 


/IN THE VT8-E, 

0603 

7101 


CLL IAC 


/SET "EXT ADDRESS REGISTER" ■ 

0604 

4575 


UDPSM 


/TO 0, 

0605 

4575 


UOPSM 


/ADDRESS REGISTERS —> ADDRESS COUNTERS 

0606 

1034 

EXTJN2 

, TAD 

ADDR 

/SIMULATE +1 TO J 

0607 

7101 


CLL I AC 


/THE ADDRESS COUNTER AND - 

0610 

7421 


MQL 


/KEEP IT IN THE MQ',. 

0611 

7430 


SSL 


/IS IT GOING TO BE 7777 -«> 0000', 

0612 

7103 


CLL I AC 

BSW 

/Yes, 100 TO "EXTADR" FOR . 
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PAL10 V141 


23AFEBA73 


0613 

3032 

DCA 


EXtADR 

0614 

4574 

udpmb 


0615 

4572 

UDPMS 


0616 

0377 

AND 


(70 

0617 

3033 

DCA 


BOAT A 

0620 

7501 

MQA 



0621 

7650 

SNA 

CLA 

C-10 

0622 

1143 

TAD 


0623 

1033 

TAD 


BDATA 

0624 

7650 

SNA 

CLA 


0625 

5235 

JMP 


EXtlNS 

0626 

7604 

LAS 



0627 

7104 

CLL 

RAL 


0630 

7710 

SPA 

CLA 


0631 

5235 

JMP 


EXTIN3 

0632 

1033 

TAO 


BDATA 

0633 

1032 

TAD 


EXTADR 

0634 

7402 

HLT 




/SIMULATED ANSWERt 

/break; 

/read the extended adores? counter; 

/KEEP only THE EXTENDED BITS, 

/save them; 

/WAS A +1 TO THE o 

/EXTENDED ADDRESS COUNTER GENERATED? 

/YES, IT WAS SUPPOSED To, 

/NO, 

/IS THE EXTENDED ADDRESS COUNTER CORRECT? 
/YES, OK’, 

/HALT? 

/ 

/ 

/no halt; 

/COMBINE •■EXPECTED" AND "RECEIVEO" - 
/INTO ONE WORD', 

/EXTENDED ADDRESS COUNTER ERROR, 

/THE EXTENDED AOORESS COUNTER WAS 
/INCREMENTED AT SOME OTHER TIME THEN 
/WHEN THE ADDRESS COUNTER INCREMENTED 
/FROM 7777 TO 0000', 

/AC 3-5 CONTAINS "SHOULD BE", 

/AC 6-8 CONTAINS "RECEIVED", 

/MQ CONTAINS WHAT THE ADDRESS COUNTER 
/SHOULD CONTAIN. 


0635 

4561 

EXTIN3, SR2 


/LOOP? 

0636 

5201 

JMP 

EXT INI 

/YES, 

0637 

2034 

ISZ 

ADDR 

/SETUP FOR NEXT', 

0640 

5206 

JMP 

EXTIN2 

/do another; 

0641 

7501 

MQA 


/ 

0642 

7640 

SZA CLA 


/ 

0643 

7402 

HLT 


/ 

0644 

4560 

SR3 


/REMAIN IN THIS TEST? 

0645 

5200 

JMP 

EXTIN 

/yes, 


/TEST THAT THE EXTENDED ADDRESS COUNTER 
/WILL INCREMENT CORRECTLY, 

/LOAD THE STARTING ADDRESS REGISTER 
/WITH 7777 AND DO A 8REAK, THE EXTENDED ADDRESS 
/REGISTER SHOULD BE +1 AFTER THE BREAK, 


0646 

4566 

EXT, 

setup 


0647 

1143 

EXTl, 

decimal 

TAD 

C-8 

0650 

3042 


OCTAL 

DCA 

COUNT1 

0651 

7340 


CLA CLL 

CHA 

0652 

0653 

4577 

1032 

EXT2, 

UOPLA 

TAD 

EXTADR 

0654 

1141 


TAD 

C10 

0655 

0377 


AND 

(70 


/INITIALISE. 

/ 

/COUNTER FOR INCREMENTING 
/ 

/SAVE THE END COUNT, 

/7777 

/LOAD THE ADDRESS REGISTER WITH 7777. 
/GET THE EXTENDED AODRESS’, 

/ADD 10 FOR THE simulated; 

/MASK FOR OVERFLOW 
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0656 

7421 


MQL 


0657 

1032 

EXT3, 

TAD 

EXTADR 

0660 

7101 


CLL I AC 


0661 

4575 


UDPSH 


0662 

4575 


UQPSM 


0663 

4574 


UDPMB 


0664 

4572 


UDPMS 


0665 

0377 


AND 

(70 

0666 

3033 


DCA 

BDATA 

0667 

7501 


MQA 


0670 

7041 


CMA I AC 


0671 

1033 


TAD 

BDATA 

0672 

7650 


SNA CLA 


0£ 73 

5277 


JMP 

EXT4 

0674 

4563 


SRI 


0675 

1033 


TAD 

BDATA 

0676 

7402 


HLT 



/save as the simulated. 

/EXTENDED ADDRESS 

/*1 SO MAINTENANCE WILL LOAD THE CORRECT 
/REGISTER, 

/AC 6-8 -■> EXT STARTING ADD, REG, 

/EXT STARTING ADO, REGS, --> ADD COUNTERS, 

/BREAK, WHICH WILL INCREMENT AOO, COUNTER, 

/READ THE EXT ADD - , COUNTER BACK, 

/ONLY EXT ojts; 

/SAVE IT, 

/SIMULATED TO AC'. 

/NEGATE FOR CHECKING’, 

/ADD RECEIVED, 

/SIMULATED SAME AS RECEIVED? 

/YES, OK, 

/HALT7 

/RECEIVED TO THE AC, 

/EXTENOEO ADDRESS COUNTER ERROR, 

/THE EXTENDED ADDRESS COUNTER FAILEO 
/.TO INCREMENT CORRECTLY WHEN 
/THE ADDRESS COUNTER INCREMENTED FROM 
/7777 TO 0000', 

/AC CONTAINS THE EXTENDED AOORESS COUNTER, 

/MQ CONTAINS WHAT THE EXT’, AOO’, COUNTER SHOULD BE, 


0677 

4561 

EXT 41 

SR2 


0700 

5257 


JMP 

EXT3 

0701 

1032 


TAO 

EXTADR 

0702 

1141 


TAD 

C10 

0703 

3032 


DCA 

EXTADR 

0704 

2042 


ISZ 

COUNT! 

0705 

5253 


JMP 

EXT2 

0706 

2043 


ISZ 

C0UNT2 

0707 

5247 


JMP 

EXTl 

0710 

4560 


SR3 


0711 

5246 


JMP 

EXT 



/test 

THAT DpGo 

can Load ?he 


/LOOPT 

/YES, 

/UPDATE EXTADR F^R NEXT PATTERN 
/ 

/UPDATE DONE’, 

/ALL PATTERNS DONE? 

/NO, 

/HAS THIS TEST MADE 4096 PASSES? 
/NO, 

/REMAIN IN THIS TEST? 

/YES, 


/EXTENDED STARTING ADDRESS REGISTER, 


0712 

4566 

edpgo, 

setup 

decimal 

(-100 

0713 

1376 


tad 

octal 


0714 

3044 


OCA 

COUNT3 

0715 

4577 


UOPLA 


0716 

7301 

EDPGOl, 

CLA CLL 

I AC 

0717 

4575 


UDPSM 


0720 

4575 


UDPSM 


0721 

1377 


TAD 

(70 

0722 

7421 


MQL 


0723 

7501 


MQA 


0724 

4576 


UDPGO 


0725 

4575 


UQPSM 



/INITIALIZE. 

/ 

/DO TEST THIS NUMBER OF TIMES, 

/ 

/save COUNT 

/STARTING ADDRESS OF 0 

/SET MAINT AND, 0 —> EXT AODR REG', 

/DO ABOVE, 

/AODR REG ;-> COUNTERS 
/LOAD FOR FJEL07 
/SAVE IN MO, 

/70 

/TEST 

/AODR REG -•> COUNTERS 
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/VT8-6 


/VT8-I 


VIDEO 1 

DISPLAY 

TEST 1 

MAJNDEC- 

08-OHVTA-B-L 

0726 

4572 


UOPMS 


0727 

0377 


AND 

<70 

0730 

3033 


DCA 

bdata 

0731 

7501 


MQA 


0732 

7041 


CMA I AC 


0733 

1033 


TAD 

BDATA 

0734 

7630 


SNA CLA 


0735 

3341 


JMP 

E0PCC2 

0736 

4563 


SRI 


0737 

1033 


TAO 

BDATA 

0740 

7402 


HLT 


0741 

4561 

E0PGO2, 

i SR2 


0742 

3316 


JMP 

EOPGOl 

0743 

4560 


SR3 


0744 

5312 


JMP 

EOPCQ 




NPAGE 


0745 

3775 


JMP I 

(,+20047600 


0775 

1000 


0776 

7634 


0777 

0070 



1000 

PAGE 


FAL10 V i 41 23ATEBA73 

/READ BACK ext addr counter. 

/SAVE ONlT FIELD BITS', 

/SAVE ALWAYS 
/GOOD TO AC FOR CHECK 
/NEGATE GOOD 

/ADD RECEIVED TO CHECK IF SAME 
/EXPECTED 8K 
/OK 

/HALT? 

/BAD TO AC 

/DP GO FAILED TO LOAD THE EXT 
/STARTING REG', AC SHOULD s 70', 

/AC CONTAINS THE VALUE OF THE EXT, ADDRESS COUNTER', 
/LOOP? 

/YES, 

/REMAIN IN THIS TEST? 

/YES, 

/CO TO NEXT PAGE 


/TEST OF THE VTa-E BUFFER USING CONSTANT DATA 

/PATTERNSI 77771 00001 7777) 5252J 29251 77001' 00771 70071 0770, 
/GET THE DATA AND Oo 31 OR 63 BREAKS TO PRIME THE BUFFER 
/NOW DO 4096 BREAKS ON THE DATA CHECKING AFTER EACH BREAK', 


1000 

4566 

DaTaIi 

setup 


/INITIALISE 

1001 

1140 


TAD 

CGDATA 

/ADDRESS OF DATA 

1002 

3034 


DCA 

AOATA 

/STORE FOR ERROR DISPLAY, 

1003 

7201 


CLA JAC 


/0001 

1004 

6214 


RDF 


/GET FIELD 

1005 

4575 


UDPSM 


/SET MAINTENANCE MODE 

1006 

6214 


RDF 


/FIELD TO AC 

1007 

3052 


DCA 

FLO 

/FOR ERROR REPORTING 

1010 

1377 


TAO 

(FQATAB-1 

/SET AUTO-INDEX FOR • 

1011 

3010 


DCA 

A110 

/OBTAINING COUNT AND DATA*, 

1012 

1410 


TAO I 

AI10 

/GET NUMBER OF PATTERNS'. 

1013 

3035 


OCA 

TEMPI 

/SAVE, 

1014 

1410 

DATA1A, 

TAO I 

A110 

/GET DATA, 

1015 

3032 


OCA 

GDATA 

/SAVE, 

1016 

3042 


DCA 

COUNT1 

/SET FOR 4096 COUNT, 

1017 

7201 


CLA IAC 


n 

1020 

4537 


JMS I 

CPRIME 

/PRIME THE BUFFER - 

1021 

0032 


GDATA 


/ 

1022 

1140 


TAD 

CGDATA 

/SET BUFFER - 

1023 

4577 


UDPLA 


/ADDRESS’, 

1024 

4575 

DATA1B, 

UDPSM 


/START ADPR REGS -A> ADDR COUNTER 

1025 

4574 


UDPMB 


/SINGLE BREAK, 
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1026 

4573 

UDPMO 


1027 

3033 

OCA 

BDATA 

1030 

1032 

TAO 

GDATA 

1031 

7041 

CMA IAC 


1032 

1033 

TAO 

BDATA 

1033 

7650 

SNA CLA 


1034 

5240 

JMP 

,+4 

1035 

4563 

SRI 


1036 

7402 

HLT 


1037 

4565 

SHOW 


1040 

4561 

SR2 


1041 

5224 

JMP 

OATA1B 

1042 

2042 

ISZ 

COUNT! 

1043 

5224 

JMP 

DATA1B 

1044 

2035 

ISZ 

TEMPI 

1045 

5214 

JMP 

DATA1A 

1046 

4560 

SR3 


1047 

5200 

JMP 

NPAGE 

DATA! 

1050 

5776 

JMP J 

<’,*200*7600 



/manual increment routine 

/SR7 SET ENABLES THE ROUTJNE, 

/A CHANGE IN SR8 MANUALLY STEPS 



/DISPLAY SINGLE 

STEP, 

1051 

0000 

BUMP, OPEN 


1032 

7604 

LAS 


1053 

0136 

ANO 

C20 

1054 

7454 

SNA OSR 


1055 

5270 

JMP 

BUMP1 

1056 

0141 

AND 

C10 

1057 

7640 

SZA CLA 


1060 

7040 

CMA 


1061 

1051 

TAD 

PSET 

1062 

7001 

I AC 


1063 

7640 

SZA CLA 


1064 

5651 

JMP I 

BUMP 

1065 

1051 

TAO 

PSET 

1066 

7140 

CLL CMA 


1067 

3051 

DCA 

PSET 

1070 

2251 

8UMP1, ISZ 

BUMP 

1071 

7300 

CLA CLL 


1072 

5651 

JMP I 

BUMP 



/initialization 

ROUTINE, 

1073 

0000 

SETUPX, OPEN 


1074 

6007 

CAF 


1075 

4560 

SR3 


1076 

7610 

SKP CLA 


1077 

4570 

udpbel 


1100 

7621 

CAM 


1101 

1375 

TAO 

(RMF 
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/LOAD AC FROM DATA BUFFER’, 

/SAVE RECEIVED DATA, 

/TAKE THE EXPECTED DATA AND - 
/NEGATE IT* NOW ADD - 
/THE RECEIVED DATA AND SEE - 
/IF THEY ARE THE SAME', 

/DATA A-OKAY', 

/SHALL WE halt? 

/RECEJVEO NOT SAME AS EXPECTED', PRESS CONTINUE 
/TO DISPLAY DATA'. AC-RECEIVED) MQ-EXPECTEO, 
/SHALL WE LOOP? 

/YES, 

/DONE 4096 TIMES? 

/NO, 

/ALL PATTERNS DONE? 

/NO, 

/REMAIN IN THIS TEST? 

/YES, 

/ 

/GO TO NEXT PAGE 


/READ SWiTGHES’, 

/MASK FOR SR7’j 

/WAS SR7 SET? ALSO READ SW, 
/SR7 NOT SET’, 

/MASK FOR SR8', 

/IF SET! Ac-7777) IF NOT| AC = 0 
/SR8 SET, 

/ADD THIS 
/*1 
/ 

/ 

/COMPLEMENT - 
/THE CHANCE . 

/INDICATOR’, 

/*! FDR EXJT’, 

/AC+L-0, 

/EXIT, 


/CLEAR ALL’, 

/ 

/NO TUNE IF SR5 )S SET’, 

/SOUND A TUNE AT THE BEGINNING OF 
/EACH TEST’ 

/0 ..> AC+MQ’, 

/RMF INSTRUCTION 



/VT8-E; 


/YT8-E 


VIDEO 1 

display 

test i 

MAINOEC* 

08.OHVTA-B.L 

PAL10 V141 23AFEBA73 

14118 

1102 

6201 


CQF 

00 

/OF 0 


1103 

3774 


OCA I 

(ONE 

/PUT IN 1 OF FIELD 0 


1104 

1373 


TAD 

(JMP ONE 

/JMP j, 


1105 

3772 


OCA I 

(TWO 

/PUT IN 2 OF FIELD 0 


1106 

4060 


HOMEOF 


/OF « IF', 


1107 

1135 


TAD 

CJMP I TWO 

/PUT IN PROGRAM FIELD 1 , 


1110 

3001 


OCA 

ONE 

/LOCATION 1, 


1111 

1371 


TAD 

(■UNK+OOATA' 

■1 /SETUP TO ZERO PACE ZERO 

STQRAOE', 

1112 

3007 


DCA 

SEVEN 

/SAVE COUNT OF LOCATIONS 


1113 

1370 


TAD 

(GOATA-i 

/SET AUTO-INDEX 


1114 

3010 


DCA 

A110 

/SAVE 


1115 

3410 


OCA I 

A110 

/0 STORAGE LOCATION 


1116 

2007 


IS2 

SEVEN 

/DONE? 


1117 

5315 


JMP 

i *2 

/NOi 50 ZERO ANOTHER', 


1120 

1134 


TAO 

CIS2TST 

/SET UP BACKGROUND JOB 


1121 

3933 


DCA I 

CBACKST 

/ 


1122 

3532 


OCA I 

c buffer 

/0 -•> FIRST LOCATION IN 

THE BUFFER, 

1123 

5673 


JMP I 

SETUPX 

/EXIT, AO*L*FLAGS*0 


1170 

0031 






1171 

7754 






1172 

0002 






1173 

5001 






1174 

0001 






1179 

6244 






1176 

1200 






1177 

4547 







1200 


PAGE 






/THIS 

IS A TEST 

OF THE VTb.E 

DATA BUFFER 



/USING A SPECIAL BINARY COUNT PATTERN7 
/{THE 8INARY COUNT AND ITS COMPLEMENT) 

/THE DATA APPLIED TO THE INPUT IS DELAYED 32 DR 

/64 BREAKS BEFORE SEEN ON THE OUTPUT, IF 

/SR2 IS SET TO LOOP THEN AFTER 32 OR 6* BREAKS THE SAME 

/QATA AS APPLIED HILL CONTINUOUSLY BE'SEEN", WHEN 5R2 IS 

/LOWERED THE PROGRAM WILL PICK UP WHERE IT LEFT OFF *17 

/[THE BUFFER HOLDS THE SPECIAL BINARY COUNT INSTEAD OF BEING 

/FILLEO WITH THE SAME OATA AS IN "DATA1"',] 


PACE 1.16 


/defjnesi 


0033 NOCNTsTEMPl 

0036 L00PFL-TEMP2 

0037 IN0ATAPTEMP3 

0040 FILBUF3TEMP4 

0043 UP00WN5C0UNT2 


1200 

4566 

0ATa2, setup 

/INITIALIZE 

, 

1201 

1132 

TAO CBUFFER 

/ADDRESS OF 

DATA 

1202 

3034 

OCA ADATA 

/STORE FOR 

ERROR DISPLAY 

1203 

7201 

CLA I AC 

/0001 


1204 

6214 

RDF 

/GET FIELD 


1205 

4575 

UQPSM 

/SET MAI NT", 

AND FIELD', 


VIDEO OJSPL'AY TEST 1 MAINDEC-08.OHVTA-B-L PAL10 V141 23AFEBL73 14118 PAGE 1.17 


1206 

6214 


RQF 


/FIELD TO ic 

1207 

3052 


DC* 

FLO 

/For error reporting', 

1210 

1132 


TAO 

CBUFFER 

/ 

1211 

4577 


UOPLA 


/AC -■> STARTING AOOR REG’, 

1212 

7344 


CLA CLL 

CMA RAL 

/■2, 

1213 

3043 


OCA 

UPOOWN 

/•2 <■•> UPDOWN’, 

1214 

4557 

0ATA2A, 

SR6 


/32 FOR 64? 




DECIMAL 


/ 

1215 

1131 


TAD 

C 3 2 

/SET A COUNTER SO A FULL . 

1216 

1130 


TAD 

C-64 

/BUFFER CAN BE DETERMINOED', 




OCTAL 


/ 

1217 

1036 


TAD 

LOQPFL 

/IF LOOP WAS SET, THEN 1 MORE BREAK, 

1220 

3040 


DCA 

FJL8UF 

/SAVE THE COUNT, 

1221 

1036 


TAD 

LOOPFL 

/ 

1222 

7650 


SNA CLA 


/IF LOOP FLAG SET THEN HERO JT', 

1223 

5237 


JMP 

DATA2B 

/ITS HERO, 

1224 

1043 


TAO 

UPOOWN 

/LOOK AT THE WAY WE WERE COUNTING 

1225 

7130 


CLL CML 

RAR 

/IF 7776 THEN MAKE IT 7777', 

1226 

7430 


SHL 


/IF 7777 THEN MAKE IT 7776', 

1227 

7344 


CLA CLL 

CMA RAL 

/777& 

1230 

3043 


DCA 

UPDOWN 

/DIRECTION OF COUNT NOW RESET, 

1231 

7630 


SHL CLA 


/CHECK IF DOWN', 

1232 

5236 


JMP 

DATA2B-1 

/UP, 

1233 

2042 


ISH 

C0UNT1 

/UPDATE C0UNT1 SINCE LOOP BYPASSED IT’. 

1234 

7610 


SKP CLA 


/COUNT DID NOT GO TO HERO', 

1235 

5352 


JMP 

DATA2K 

/C0UNT1 OVERFLOWED SO L'OOK AT SR3 TO DECIDED WHAT TO DO 

1236 

3036 


OCA 

LOOPFL 

/0 LOOPFL’, 

1237 

1037 

0ATA2B, 

TAD 

INOATA 

/GET THE OATA TO BE PUT IN THE * 

1240 

3532 


DCA I 

CBUFFER 

/BUFFER NEXT AND SAVE IT, 

1241 

4575 


UDPSM 


/START ADDR REG —> ADDR COUNTER, 

1242 

4574 


UOPMB 


/SINGLE BREAK', 

1243 

4573 


UDPMO 


/READ VTB-E BUFFER’, 

1244 

3033 


OCA 

BDATA 

/AND SAVE IT', 

1245 

1040 


TAD 

FILBUF 

/IF VTS-E BUFFER IS CLEAR OF GARBAGE 

1246 

7650 


SNA CLA 


/THEN CHECKS CAN BE MADE’, 

1247 

5252 


JMP 

i*3 

/OK TO CHECK’, 

1250 

2040 


ISH 

FILBUF 

/CLEAR OF JUNK YET? 

1251 

5331 


JMP 

DAT A2H 

/NO, 

1252 

1036 


TAO 

LOOPFL 

/IF LOOPFL IS 0 THEN WE MUST • 

1253 

7640 


SHA CLA 


/CALCULATE THE OUTPUT OF THE BUFFER, 

1254 

5301 


JMP 

DATA2E 

/LOOPFL 0 !, 

1255 

1043 


TAO 

UPDOWN 

/COUNTING UP OR DOWN? 

1256 

7110 


CLL RAR 


/CHECK ACU 

1257 

7630 


SHL CLA 


/SKIP IF "UP" 

1260 

5270 


JMP 

DATA20 

/"DOWN" 

1261 

1037 


TAD 

INDATA 

/FROM AN "UP" « 

1262 

7040 


CMA 


/CALCULATE THE "DOWN" - 

1263 

3041 


DCA 

TEMPS 

/DATA, 

1264 

4557 


SR6 


/32 OK 647 




oecimal 


/ 

1265 

1377 


TAD 

(■16 

/32 

1266 

1131 


TAD 

C32 

/64 




OCTAL 


/ 

1267 

5276 


JMP 

DATA2D 

/ 

1270 

1037 

0ATA2C, 

TAO 

INDATA 

/FROM A "DOWN" - 
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1271 

7041 


DMA IAC 


1272 

3041 


DCA 

TEMP5 

1273 

4537 


SR6 

DECIMAL 


1274 

13?6 


TAD 

(16 

1275 

1375 


TAD 

OCTAL 

(-32 

1276 

1041 

DATA2D, 

TAD 

TEMP3 

1277 

3032 


DCA 

GDATA 

1300 

3035 


OCA 

NOCNT 

1301 

1032 

DATA2E, 

TAD 

GDATA 

1302 

7041 


CMA IAC 


1303 

1033 


TAD 

BDATA 

1304 

7630 


SNA CLA 


1305 

5311 


JMP 

OATA2F 

1306 

4563 


SRI 


1307 

7402 


HIT 



1310 

4565 


SHOW 


1311 

4561 

0ATA2F, 

SR2 



1312 

5317 


JMP 


DATA2G 

1313 

1036 


TAO 


LOOPFL 

1314 

7640 


S2A 

CLA 


1315 

5214 


JMP 


0ATA2A 

1316 

5333 


JMP 


□ATA25 

1317 

1036 

DATA2G, 

TAO 


LOOPFL 

1320 

7640 


SZA 

CLA 


1321 

5237 


JMP 


OATA2B 

1322 

1032 


TAD 


GDATA 

1323 

3037 


DCA 


JNDATA 

1324 

4537 


JMS 

I 

DPR I ME 

1325 

0037 


JNOATA 


1326 

7340 


CLA 

CLL 

CMA 

1327 

3036 


DCA 


LOOPFL 

1330 

5237 


JMP 


OATA2B 

1331 

7340 

DATA2H i 

CLA 

CLL 

CMA 

1332 

3035 


DCA 


NOCNT 

1333 

1037 

DATA2J, 

TAD 


INOATA 

1334 

7040 


CMA 



1335 

2043 


ISZ 


UPOOWN 

1336 

5344 


JMP 


DATA2J 

1337 

7001 


I AC 



1340 

3037 


DCA 


INOATA 

1341 

7344 


CLA 

CLL 

CMA RAL 

1342 

3043 


DCA 


UPOOWN 

1343 

5237 


JMP 


DATA28 

1344 

3037 

DATA2J, 

OCA 


INDATA 

1345 

1035 


TAO 


NOCNT 

1346 

7640 


SHA 

CLA 


1347 

5237 


JMP 


DATA2B 

1350 

2042 


ISZ 


COUNT1 

1351 

5237 


JMP 


DATA2B 

1352 

4560 

DATAZK, 

SR3 




/CALCULATE THE • 
/"UP" DATA', 
m OR 647 
/ 


/ 

/ADD TO TEHP5 

/SAVE AS THE EXPECTED DATA 
/ALWAY5 0 NOCNT',. 

/TAKE THE "EXPECTEB" DATA - 
/AND NEGATE IT', NOW ADD - 
/THE RECEIVED DATA AND SEE IP • 

/ITS THE SAME', 

/DATA A-OKAY’, 

/HALT ON ERRORT 

7YES, DATA RECEIVED IS INCORRECT, 
/PRESS CONTINUE TO DISPLAY THE - 
/"BAD" DATA IN THE "AC" AND THE 
/"GOOD" IN THE "MQ'*, 

/9HOW THE DATA', 

/LOOP ON DATA ON OUTPUT? 

/YES 

/WERE WE LOOPING? 

/CHECK? 

/YES, MUST reset; 

/NO, 

/ARE WE ALL READY LOOPING? 

/CHECK? 

/YES, 

/5ET THE DATA SO WE'RE - 
/CONSTANT INSTEAD OP COUNTING, 

/PRIME THE BUFFER', 

/WITH CONSTANT DATA, 

/SET LOOP FLAG', 

/7777 »-> LOOPFL; 

/TEST, 

/SET NOCNT SO A COUNT . 

/ISN'T STARTED UNTIL JUNK IS CLEARED, 
/GET LAST DATA TO ENTER BUFFER', 
/COMPLEMENT it; 

/NEXT DATA TO BE UP OR DOWN? 

/"DOWN" 

/+1 TO MAKE NEW "UP" DATA 
/STORE, 

/RESET COUNT', 

/SAVE, 

/GO LOAD BUFFER WITH NEW, 

/SAVE NEW "DOWN"’, 

/SHALL THE COUNT BE UPDATED? 

/CHECK? 

/NO, 

/YES, DONE TEST? - 
/NO, 

/REMAIN IN THIS TEST? 


/VT8-E VIDEO DISPLAY.TEST 1 MAJNDEC»08«DHVTA*B«L 


PAL10 V141 23HFEB-73 


1353 

5200 

JMP 

NPAGE 

DATA2 

1354 

5774 

JMP I 

(,*20047600 


1374 

1400 


1375 

7740 


1376 

0020 


1377 

7760 



1400 

PAGE 


/yes, 

/ 

/GO TO NEXT PAGE 


14118 PAGE 1-19 


/ADDRESS TEST 

/BREAK FROM EVERY ADDRESS USING THE ADDRESS 
/ANO ITS COMPLEMENT FOR OATA, 

/THE ADDRESS SELECTED TO BE TESTED HAS ITS CONTENTS 
/SAVED IN THE "MQ", THE VALUE OF THE ADDRESS [S PLACED IN 
/THE ADDRESS AND AFTER 32 OR 64 BREAKS ITS READ BACK AND 
/CHECKED, AOORESS IS THEN RESTORED AND THE COMPLEMENT OF THE 
/ADORESS IS CALCULATED AND AGAIN THE ADDRESS IS SAVED IN THE 
/"MG", THE COMPLEMENT PATTERN IS PLACED IN THE ADDRESS AND 
/32 OR 64 8REAKS ARE DONE. AND THE OATA CHECKED', 

/THIS TEST STARTS AT FIELD 0 ADORESS 0000 AND CHECKS EVERY ADORESS 
/IN EVERY FIELD FOR AS MANY FIELDS AS SELECTED IN SR 9.11’, 


1400 

4566 

AOORIi 

setup 


1401 

1777 < 


TAD 

ODPSM 

1402 

3057 


DCA 

IDPSM 

1403 

4557 


SR6 

DECIMAL 


1404 

1131 


TAD 

C38 

1405 

1130 


TAD 

OCTAL 

C-64 

1406 

3042 


DCA 

COUNT1 

1407 

7604 


LAS 


1410 

0376 


AND 

(7 

1411 

7040 


CMA 


1412 

3044 


DCA 

C0UNT3 

1413 

7344 

ADDR1A, 

CLA CLL 

CMA RAL 

1414 

3043 


DCA 

C0UNT2 

1415 

1034 


TAD 

AOATA 

1416 

4577 


UOPLA 


1417 

7301 


CLA CLL 

IAC 

1420 

1052 


TAD 

FLD 

1421 

4575 


UQPSM 


1422 

7100 


CLL 

adata 

1423 

1034 

ADDR1S, 

TAO 

1424 

1375 


TAD 

(-LDADOB 


INITIALIZE. 

GET A »DPSM” INSTRUCTION 
AND 3T0RE IT SO BREAK ROUTINE 


/38 OH 647 
/ 

/32 

/64 

/ 

/SAVE 

/READ FIELD FROM SW, 
/KEEP ONLY FIELD BITS', 
/CHANGE FOR A GOUNT 
/54VE COUNT, 


/» 2 

/THIS COUNT SERVES TO DETERMINE 
/WHETHER ITS THE ADDRESS OR ITS 
/COMPLEMENT', 

/GET ADDRESS TO BE TESTED 
/ADDRESS «i> STARTING ADDR REG 
/ 0001 , 

/GET FIELD 
/SET MAINTENANCE 
/ 

/GET ADDRESS TO BE TESTED, 

/ADD THE ADDRESS TO THE ROUTINE 

/TO STORE DATA IN THE ADDRESS AND 

/DO THE BREAKS’, IF THE ADDRESS EQUALS 

/THE ROUTINE ADDRESS, ROUTINE "LQADDA 11 

/IS THEN USED TO PERFORM THE SAME FUNCTION’, 



/yts-e 


VIDEO DISPL'AY test 1 
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1425 

7630 


S2L 

CLA 


1426 

4774' 


JM§ 


ldadoa 

1427 

4773' 


JMS 


LDADOB 

1430 

6054 

III 

DPMD 


1431 

3033 


DCA 


BDATA 

1432 

1037 


TAD 


INDATA 

1433 

7041 


CMA 

l AC 


1434 

1033 


TAD 


BDATA 

1435 

7650 


SNA 

CLA 


1436 

5244 


JMP 


ADDR1D 

1437 

1037 


TAD 


INOATA 

1440 

3032 


DCA 


GOATA 

1441 

4563 


SRI 



1442 

7402 


HLT 




1443 

4565 


SHOW 


1444 

4561 

ADDR1D, 

SR2 


1445 

5222 


JMP 

ADDR1B-1 

1446 

1037 


TAD 

INDATA 

1447 

7140 


CLL CMA 


1450 

2043 


JSH 

C0UNT2 

1451 

5266 


JMP 

ADOR1C 

1452 

7001 


I AC 


1453 

3037 


DCA 

INDATA 

1454 

2034 


IS2 

ADATA 

1455 

5213 


JMP 

ADDR1A 

1456 

1052 


TAD 

FLO 

1457 

1141 


TAO 

C10 

1460 

3052 


DCA 

FLO 

1461 

2044 


JSH 

C0UNT3 

1462 

5213 


JMP 

ADOR1A 

1463 

4560 


SR3 


1464 

5200 


JMP 

NPAGE 

ADOR1 

1465 

5772 


JMP J 

C, *20047600 

1466 

■3037 

AODR1C, 

DCA 

INDATA 

1467 

5222 


JMP 

ADDR1B-1 


/ADDRESS EQUaU TO LOAOOB? 

/YESi 

/ 

/READ BACK BUFFER', 

/SAVE THE DATA 

/GET WHAT SHOULD HAVE COME BACK 
/MEGAIE IT‘, 

/ADD RECEIVED AND SEE IF ITS OK 
/WAS IT OKT 
/YES, OK - , 

/SET THE EXPECTED FOR ERROR REPORTING', 
/SAVE EXPECTED', 

/HALT7 

/YES, RECEIVED THE INCORRECT DATA FROM 
/THE VT8-E DATA BUFFER', PRESS CONTINUE 
/TO 01 SPLAY THE GOOD ANO BAD DATA 
/AND THE ADDRESS BEING TESTED, 

/DISPLAY INFORMATION', 

/SEE THE LISTING AT THE HALT ADDRESS, 

/LOOPT 

/YES, 

/GET THE DATA 
/COMPLEMENT IT', 

/COMPLEMENT OR ADDRESS? 

/COMPLEMENT OF ADDRESS’, 

/+1 TO MAKE DATA FOR NEXT ADDRESS, 

/SAVE NEW DATA 

/MAKE NEW ADDRESS, DONE ALL? 

/NOT ALL DONE", 

/GET PRESENT FIELD 
/ADO 10 EQR UPDATE 
/SAVE NEW FIELD TO BE TESTED, 

/ALL FIELDS DONE? 

/NO, DO NEXT', 

/REMAIN IN THIS TEST? 

/YES, 

/GO TO NEXT TEST 
/GO TO NEXT PAGE 
/SAVE COMPLEMENT OATA 
/DO IT, 


/THIS ROUTINE RUNS A SWIRL PATTERN SIMULTANEOUSLY ON 4 VT8e/S 


1470 

4566 

MULVT8, 

SETUP 


1471 

1127 


TAD 

C1«BIT7 NORMAL 

1472 

3050 


DCA 

CHAR 

1473 

4771' 


JMS 

LDBWL 

1474 

1370 


TAD 

(3000 

147? 

3767 


DCA I 

(23U00+BUFFER+100-1 

1476 

1132 


TAD 

CBUFFER 

1477 

3316 


DCA 

BUFCA 

1500 

1366 


TAD 

(MULTAB 

1501 

3031 


DCA 

WORKVT 

1502 

4765' 

MULV1, 

JMS 

DEVCOD 

1503 

1316 


TAD 

BUFCA 
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1504 

4577 


UQPLA 


1505 

6214 


RDF 


1506 

4576 


UDPGO 


1507 

2316 


ISZ 

BUFCA 

1510 

2031 


ISZ 

WORKVT 

1511 

1431 


TAD I 

WORKVT 

1512 

7640 


S2A 

CLA 

1513 

5302 


JMP 

MULV1 

1514 

7001 


I AC 


1515 

5314 


JMP 

,*i 

1516 

0000 

BUFCA, 

OPEN 


1517 

0503 

MULTAB, 

0503 


1520 

1513 


1513 


1521 

2523 


2523 


1522 

3533 


3533 


1523 

0000 


0 


1565 

4123 




1566 

1517 




1567 

7277 




1570 

3000 




1571 

3054 




1572 

1600 




1573 

4453 




1574 

4424 




1575 

3325 




1576 

0007 




1577 

4011 





1600 


PAGE 



/CURRENT ADDRESS INCREMENT TEST I 

/THIS TEST PLACES THE VALUE OF THE ADDRESS IN THE ADDRESS 
/AND DOES A BREAK STARTING AT ADDRESS 0 CURRENT FIELD AND PERFORMES 
/THIS PROCEDURE FOR EVERY ADORESS IN THE CURRENT FIELD', THE DATA 
/COMING OUT OF THE BUFFER IS LAGGING THE INPUT BY 32 OR 64 BREAKS, 
/IF LOOP JS SET, BREAKS USING THE SAME ADDRESS AND DATA WILL BE 
/DONE, RESETTING LOOP RESUMES THE PROGRAM FROM WHERE 


/INITIALIZE 

/SET 11 so THE EXTENDED 
/ADDRESS WILL BE LOADED - , 
/LOAD EXT ADDRESS REGISTER, 
/FIELD TO AC 

/SAVE FOR ERROR REPORTING 
/32 OR 64? 

/ 

/32 

/64 

/ 

/NEGATE FOR COUNT 


1600 

4566 

/J T LEFT OFF *1, 

CAINC, setup 


1601 

7201 

cl* iac 


1602 

6214 

RDF 


1603 

4575 

UDPSM 


1604 

6214 

Rpr 

FLO 

1605 

3052 

DCA 

1606 

4557 

SR6 


1607 

1377 

DECIMAL 

TAD 

(-32 

1610 

1376 

TAD 

(64 

1611 

7041 

OCTAL 
CMA IAC 
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VIDEO DISPLAY 

TEST 1 

MAI.NDEC- 

0BoDHVTA»l 

1612 

3041 


DCA 

TEMP5 

1613 

1041 

CA{NCI, 

i TAD 

TEMP! 

1614 

1036 


TAP 

LOOPFL 

1615 

3040 


DCA 

FJLBUF 

1616 

1036 


TAD 

LOOPFL 

1617 

7650 


SNA CLA 


1620 

5225 


JMP 

OAINC2 

1621 

2044 


ISZ 

C0UNT3 

1622 

7610 


SKP CLA 


1623 

5340 


JMP 

CAINCA 

1624 

3036 


OCA 

LOOPFL 

1625 

1375 

CA1NC2, 

i TAO 

{NOP 

1626 

3057 


DCA 

IDPSM 

1627 

1034 


TAD 

AOATA 

1630 

4577 


UOPLA 


1631 

4575 


UDPSM 


1632 

7240 

CAJNC3, 

i CLA CMA 


1633 

3042 


OCA 

COUNT1 

1634 

7100 

CAINC4, 

i CLL 


1635 

1034 


TAD 

AOATA 

1636 

1374 


TAD 

(-LOADDB 


1637 

7630 

SZL 

CLA 


1640 

4773' 

JMS 


LOADOA 

1641 

4772' 

JMS 


LDADDB 

1642 

4573 

UQPMD 


1643 

3033 

OCA 


BOAT A 

1644 

1040 

TAO 


FILBUF 

1645 

7650 

SNA 

CLA 


1646 

5251 

JMP 


i *3 

1647 

2040 

ISZ 


FILBUF 

1650 

5325 

JMP 


CAINC8 

1651 

1036 

TAO 


LOOPFL 

1652 

7640 

SZA 

CLA 


1653 

5261 

JMP 


OAINC5 

1654 

3035 

DCA 


NOCNT 

1655 

1037 

TAO 


INDATA 

1656 

1041 

TAO 


TEMPS 

1657 

7101 ' 

I AC 

CLL 


1660 

3032 

OCA 


GDATA 

1661 

1032 

CAINC5, TAO 


GDATA 

1662 

7041 

CMA 

I AC 


1663 

1033 

TAD 


BOATA 

1664 

7650 

SNA 

CLA 


1665 

5271 

JMP 


CAINC6 

1666 

4543 

SRI 



1667 

7402 

HLT 




PAL10 V141 23AFEBL73 

/save simulated factor 
/GET IT BACK 
/IF LOOPFL IS SET THIS ALLOWS 1 MORE BREAK', 

/SAVE NUMBER QF BREAKS', 

/IS FLAG FOR LOOPING SET? 

/CHECK, 

/NOT SET', 

/YES, UPDATE COUNT MISSED BY LOOP 
/PONE? 

/YES, CHECK SR3', 

/0 --> LOOP FLAG’, 

/NOP TO BREAK ROUTINE SO ADDRESS 

/Counter will Increment 1 , 

/get ADDRESS 

/LOAD STARTING ADDRESS REGISTER, 

/STARTING ADOR REG •*> ADDR COUNTER', 

/7777 

/ONLY ONE BREAK 
/LINK 0 

/GET ADDRESS TO BE TESTED', 

/ADD IHE ADDRESS TO THE ROUTINE 
/TO STORE DATA IN THE ADDRESS AND 
/DO THE BREAKS', IF THE ADDRESS 
/EQUALS THE ROUTINE ADDRESS, ANOTHER 
/ROUTINE IS USED TO PREVENT WIPE-OUT'. 

/ADDRESS EQUAL TO L'DADOB? 

/YES, THEN USE THIS ROUTINE, 

/ 

/READ BACK DATA BUFFER’, 

/SAVE IT REGARDLESS, 

/CHECK TO SEE IF DATA BUFFER IS FULL'. 

/CLEAR QF JUNK? 

/YES, 

/BUFFER FUL'L? 

/NO, NO CHECK CAN BE MADE YET, 

/IS LOOP FLAG SET? 

/CHECK 

/YES, 

/ALWAYS 0 NO COUNT 
/GET DATA * 

/ADD SIMULATED FACTOR A 

/+l FOR SIMULATED 

/AND SAVE AS EXPECTED DATA', 

/GET EXPECTED', 

/NEGATE 

/ADD RECEIVED 

/SAME? 

/YES, 

/NO, HALT? 

/DATA RECEIVED OUT OF THE BUFFER 
/IS NOT THE SAME AS THAT PUT IN 

/THE BUFFER, PRESS CONTINUE TO REPORT ERROR DATA, 
/CAUTION 

/THE ADDRESS DISPLAYED WILL BE THE LAST 
/ONE THAT A BREAK WAS EXECUTED ON, THEREFORE 


/VTB.E VIDEO DISPLAY TEST 1 MAINDEC.08.DHVTA-B-L 


1670 

4565 


SHOW 


1671 

4561 

CAINC6, 

SR2 



1672 

5277 


JMP 


CAINC7 

1673 

1036 


TAD 


LOOPFL 

1674 

7640 


SZA 

CLA 


1675 

5213 


JMP 


CAINC1 

1676 

5327 


JMP 


CAINC9 

1677 

1036 

CAJNC7, 

TAO 


LOOPFL 

1700 

7640 


SZA 

CLA 


1701 

5234 


JMP 


CA1NC4 

1702 

1032 


TAD 


GDATA 

1703 

3037 


OCA 


INDATA 

1704 

1037 


TAO 


INOATA 

1705 

3034 


DCA 


AOATA 

1706 

1771* 


TAO 


ODPSM 

1707 

3057 


DCA 


IDPSM 

1710 

7040 


CMA 



1711 

1041 


TAO 


TEMPS 

1712 

3042 


DCA 


COUNT1 

1713 

1034 


TAD 


AOATA 

1714 

4577 


UOPLA 


1715 

7340 


CLL 

CLA 

CMA 

1716 

3036 


OCA 


LOOPFL 

1717 

1037 


TAO 


INOATA 

1720 

1374 


TAD 


(-LOAODB 

1721 

7630 


SZL 

CLA 


1722 

4773' 


JMS 


LDADDA 

1723 

4772' 


JMS 


LDADDB 

1724 

5232 


JMP 


CAINC3 

1725 

7340 

CAINCB, 

CLA 

CLL 

CMA 

1726 

3035 


OCA 


NOCNT 

1727 

2037 

CAJNC9, 

ISZ 


INDATA 

1730 

7000 


NOP 



1731 

1037 


TAO 


INDATA 

1732 

3034 


OCA 


ADATA 

1733 

1035 


TAD 


NOCNT 

1734 

7640 


SZA 

CLA 


1735 

5234 


JMP 


CAINCA 

1736 

2044 


ISZ 


C0UNT3 

1737 

5234 


JMP 


CAINC4 

1740 

4560 

CAINCA, 

SR3 



1741 

5200 


JMP 


CAINC 

1742 

2031 


ISZ 


WORKVT 

1743 

1431 


TAD 

I 

WORKVT 

1744 

7650 


SNA 


CLA 

1745 

5350 


JMP 


, +3 

1746 

4770' 


JMS 


OEVCOD 
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/to find the address of the incorrect data 

/Set SR2»1 AND PRESS CONTINUE 3 TIMES, 

/AT THIS POINT THE AC * MQ CONTAIN THE 
/DATA AND PRESSING CONTINUE ONCE MORE 
/WILL RESULT IN THE ADDRESS AND FIELD 
/TO BE DISPLAYED IN THE AC + MO, THIS 
/PROCEDURE ONLY APPLIES WHEN A HALT 
/OCCURS WHEN SR2. IS NOT SET, 

/REPORT ERROR DATA', SEE ABOVE 
/LOOP? 

./YES, 

/WERE WE LOOPING? 

/CHECK, 

/YES, THINGS MUST BE RESET, 

/NO, 

/LOOP FLAG SET? 

/CHECK 

/YES, 

/USE IHE EXPECTED DATA’, 

/TO BREAK WITH SINCE IT ERRORED ON IT', 

/ 

/ 

/SET BREAK ROUTINE TO . 

/ALWAYS BREAK FROM THE SAME ADDRESS, 

/7777 TO SUBTRACT i 
/ 

/SAVE, 

/SET ADDRESS', 

/ 

/ 

/SET loop flag 
/ 

/ 

/ 

/ 

/ 

/ 

/SET NO COUNT FLAG BECAUSE BUFFER 
/IS NOT FULL*. 

/UPDATE DATA’, 

/ 

/ 

/ 

/COUNI? 

/CHECK 

/NO 

/YES, CONE? 

/NO 

/REMAIN IN THIS TEST? 

/YES, 





/VT8-E 




VIDEO 1 

DISPLAY 

TEST 1 

MAINDEO- 

0B.OHVTA-8.L 

PAL10 V141 23AFEBA73 

1747 

5767' 


JMP 

CKCC 


1750 

4766' 


JMS 

SR7SR8 

/ 

1751 

5526 


JMP I 

CBEGJN 

/ 




NPAGE 


/ 

1752 

5765 


JMP I 

(,*20047600 

/GO TO NEXT PAGE 

1765 

2000 





1766 

3747 





1767 

0201 





1770 

4123 





1771 

4011 





1772 

4453 





1773 

4424 





1774 

3325 





1775 

7000 





1776 

0100 





1777 

7740 






2000 


PAGE 





/DISPLAY FULL SCREEN OF A SINGLE CHARACTER 



/FOR A 

PERIOD OF 2 SECONDS, 

STARTING WITH 



/7 BIT 

CODE 40, 

WHILE DISPLAYING A 



/BACKGROUND uob 

IS 8EING RUN 

UNLESS THE 



/SR PREVENTS JT 

• 


2000 

4777' 


JMS 

IN1TOC 

/initialize the device code 

2001 

4566 

DSCHAR, 

i SETUP 


/Initialize’, 

2002 

1131 


TAD 

C" 48IT7 NORMAL /7-BIT CODE FOR SPACE’, 

2003 

3050 


OCA 

CHAR 

/START WITH SPACE’, 

2004 

1050 

DSOHAl, 

, TAD 

CHAR 

/COMBINE CHARACTER’, 

2005 

1047 


TAD 

CB2CB3 

/AND CONTROL BITS’, 

2006 

4544 


JMS I 

CLDBJFF 

/LOAD THE BUFFER', 

2007 

4525 

DSCHA2, 

i JMS I 

CSETTIM 

/SET TIME TO DISPLAY 




DECIMAL 



2010 

0024 


2*10 


/2 SECONDS’, 




OCTAL 



2011 

4556 


SR7 


/MANUAL INCREMENT? 

2012 

5215 


JMP 

,*3 

/NO, SELF TIMER 

2013 

7344 

DSCRA3i 

i CLA CLL 

CMA RAL 

/■? 

2014 

304 6 


DCA 

TIMEX 

/ 

2015 

1132 


TAD 

CBUFFER 

/BEGJNJNG OF BUFFER 

2016 

4567 


XDPGO 


/GO DISPLAY 

2017 

4524 


JMS I 

CBUMP 

/CHECK'FOR MANUAL INCREMENT 

2020 

5213 


JMP 

OSCHA3 

/DISPLAY SAME', 

2021 

4523 


JMS I 

CINCBUF 

/INCREMENT ENTIRE BUFFER, 

2022 

5207 


JMP 

DSCHA2 

/DISPLAY 

2023 

4522 


JMS I 

CCB3CB2 

/INCREMENT CONTROL BITS, 

2024 

5204 


JMP 

DSOHAl 

/GO DISPLAY 

2025 

4575 


UOPSM 


/STOP OISPLAY'. 

2026 

4560 


SR3 


/REMAIN IN THIS TEST? 

2027 

5201 


JMP 

OSCHAR 

/YES, 


14118 PA6E 1»24 


/this test displays a ripple pattern changing 



JDEO D 

jsplay 

TEST 1 

MAINDEC- 

08-DHVTA-l 



/THE CONTROL BIT EVERY 5 

2030 

4566 

DISRIP 

1 SETUP 


2031 

4525 

01 SR 11 

1 JMS I 

CSETTIM 




DECIMAL 


2032 

0062 


5*10 





OCTAL 


2033 

4776' 


JMS 

LDINC 

2034 

1132 


TAO 

CBJFFER 

2035 

4567 


XDPGO 


2036 

4575 


UDPSM 


2037 

4522 


JMS I 

CCB3CB2 

2040 

5231 


JMP 

D1SRI1 

2041 

4560 


SR3 


2042 

5230 


JMP 

DISRIP 



/TEST 1 

TO DISPLAY a SWIRL 

2043 

4566 

DISSWL 

1 SETUP 


2044 

1131 


TAO 

C» <SB I T7 

2045 

3050 


OCA 

CHAR 

2046 

1130 


TAD 

C-100 

2047 

3036 


DCA 

TEMP2 

2050 

4775' 

DISSW1 

1 JMS 

LDSWL 

2051 

4525 


JMS I 

CSETTIM 




decimal 


2052 

0012 


10*1 





OCTAL 


2053 

4536 


SR7 


2054 

5257 


JMP 

, +3 

2055 

7344 

DJSSW2, 

1 CL* CLL 

CMA RAL 

2056 

3046 


DCA 

TIMEX 

2057 

1132 


TAD 

C8JFFER 

2060 

4567 


XOPGO 


2061 

4524 


JMS I 

■CBUMP 

2062 

5255 


JMP 

DISSW2 

2063 

2050 


ISZ 

CHAR 

2064 

2036 


ISH 

TEMP2 

2065 

5230 


JMP 

PISSW1 

2066 

5271 


JMP 

1 *3 

2067 

4522 


JMS I 

CCB3CB2 

2070 

5244 


JMP 

DISSWL*1 

2071 

4575 


UOPSM 


2072 

4560 


SR3 


2073 

5243 


JMP 

DISSWL 
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SECONDS, 

/INITIALIZE, 

/SET TIMER FOR- 

/TIME 

/LOAD BUFFER WITH A RIPPLE PATTERN 
/STARTING ADDRESS OF BUFFER 
/GO DISPLAY 

/STOP WHILE CHANGING DATA’, 

/INCREMENT CONTROL SIT’, 

/REPEAT TEST WITH NEW CONTROL 81T 
/REMAIN IN TEST? 

/YES, 

PATTERN 

/INITIALIZE', 

NORMAL /INITIALIZE "CHAR" - 

/WITH 7 BIT CODE FOR SPACE', 

/COUNTER TO DISPLAY - 
/I PASS OF A SWIRL’, 

/LOAD BUFFER WITH SWIRL PATTERN, 

/SET TIMER’, 

/ 

/TIME, 

/ 

/MANUAL INCREMENT, 

/NO, SELF TIMED, 

/•2 
/ 

/STARTING ADDRESS OF BUFFER, 

/GO display, 

/CHECK FOR MANUAL INCREMENT, 

/display same - , 

/UPDATE CHARACTER’, 

/DONE YET? 

/NO, 

/FORGET OTHER PATTERNS’, 

/INCREMENT CONTROL BITS, 

/RELOAD, 

/STOP DISPLAY, 

/REMAIN IN THIS TEST? 

/YES, 


/THIS TEST DISPLAYS a RJPPLE PATTERN WITH 

/EACH ROW OF 64 CHARACTERS HAVING THE RB2« e B3 CONTROL 

/BIT INCREMENTED, 


PAGE 1-25 


2074 

2075 

4566 

4525 

ALLi 

SETUP 

decimal 

JMS I 

CSETTIM 

/1NIT 
/ 

/SET TIME 

FOR DURATION OF TEST 

2076 

2077 

0144 

1121 


10*10 

TAD 

CBUFFER-1 

/SET AUTO 

INDEX 



€S 


/YT8»E VIDEO DISPLAY TEST i MAJNOEC-08-DHVTA-B-L PAL10 VIA! 23AFEB-73 I4ii8 PACE 1-26 


2100 

3010 


oca 

A110 

/ 

2101 

4557 


SR6 


/32 OR 647 

2102 

1374 


TAD 

(10 

/32 

2103 

1373 


TAD 

(-20 

/64 

2104 

3043 


OCA 

C0UNT2 

/COUNT TO DETERMINE END OF SCREEN 

2105 

1130 

ALLli 

TAD 

C-64 

/NUMBER OF PATTERNS 




OCTAL 


/ 

2106 

3044 


OCA 

C0UNT3 

/SAVE 

2107 

1372 


TAD 

(" SBIT7 

/START WITH 40 

2110 

3035 


DCA 

TEMPI 

/ 

2111 

1035 

ALLS) 

TAD 

TEMPI 

/GET CODE FOR CHARACTER 

2112 

1036 


TAO 

TEMP2 

/ADO CONTROL CODE 

2113 

3410 


DCA I 

AI10 

/STORE 

2114 

2035 


ISZ 

TEMPI 

/UPDATE FOR NEXT CHAR 

2115 

2044 


ISH 

C0UNT3 

/DONE 64 YET? 

2116 

5311 


JMP 

ALL‘2 

/NO 

2117 

2043 


152 

CQUNT2 

/OONE SCREEN? 

2120 

7410 


SKP 


/NO 

2121 

3327 


JMP 

ALL‘3 

/YES, 

2122 

1036 


TAO 

TEMP2 

/GET CONTROL CODE 

2123 

1126 


TAD 

C200 

/UPDATE FOR NEXT 64 

2124 

0371 


AND 

(700 

/KEEP ONYL CONTROL BITS 

2125 

3036 


OCA 

TEMP2 

/SAVE 

2126 

5305 


JMP 

ALL! 

/DO ANOTHER 64 

2127 

1132 

ALL3, 

TAD 

[BUFFER 

/ADDRESS OF DATA 

2130 

4567 


XOPGO 


/GO DISPLAY 

2131 

4575 


UDPSM 


/STOP FOR EXIT 

2132 

4560 


SR3 


/REMAIN IN THIS TEST? 

2133 

5274 


JMP 

ALL 

/YES, 




NPAGE 


/ 

2134 

5770 


JMP I 

(',*20087600 

/GO TO NEXT PAGE 



/routine to INCREMENT 7 bit code 



/IN THE 

entire 

BUFFER BY ONE, 




/EXIT *1 JF CODE 137, 


2135 

0000 

JNCBUFi 

OPEN 



2136 

7300 


cla cll 


/ 

2137 

1767' 


TAD 

BUFFER 

/IS CODE 137 - 

2140 

0120 


AND 

CBIT7 

/ 

2141 

1366 


TAD 

(-137 

/BEEN DISPLAYED . 

2142 

7640 


SHA CLA 


/YET? 

2143 

5350 


JMP 

,*5 

/NO, 

2144 

1131 


TAD 

C» 4BIT7 NORMAL 

/ 

2145 

3050 


OCA 

CHAR 

/YES, 0 CHAR', 

2146 

2335 


ISZ 

INCBUF . 

/ + ! FOR EXIT', 

2147 

5735 


JMP I 

INOBUF 

/EXIT, ACS0, 

2150 

4537 


SR6 


/32 OR 64 CHARACTER? 




DECIMAL 


/ 

2151 

1117 


TAD 

[32*20 

/32 

2152 

1116 


TAD 

[-64*20 

/64 




OCTAL 


/ 

2153 

3035 


OCA 

TEMPI 

/ 

2154 

1121 


TAD 

CBUFFER-1 

/ 

2155 

3010 


DCA 

A 110 

/BUFFER-1-.>AU0 


/VT3-E VIDEO DISPLAY TEST 1 MAINDEC-0B.OHVTA-B.L 


2156 

2410 

ISZ I 

AU0 

2157 

2035 

ISZ 

TEMPI 

2160 

5356 

JMP 

i-2 

2161 

5735 

JMP I 

INCBUF 

2166 

7641 



2167 

4700 



2170 

2200 



2171 

0700 



2172 

0040 



2173 

7734 



2174 

0012 



2175 

3054 



2176 

3507 



2177 

0355 




2200 

PAGE 
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/INCREMENT CHARACTER 
/DONE'ENTIRE BUFFER 
/NO, REPEAT, 

/YES, EXIT, AC)>0', 


/TEST OF LINE FEED, 

/THE ENTIRE BUFFER IS FILLED WITH "CURSOR ?» 

/A VERTICAL COLUMN OF "BRIGHT *» JS FORMED WITH 
/ON THE LEFT AND LINE FEEDS ON THE RIGHT, WHICH SHOULD 
/PRODUCE A HORIZONTAL MOVEMENT OF THE VERTICAL COLUMN 
/OF WITH NOTHING VISUAL TO THE RIGHT OF IT', A LINE 
/FEED FAILURE WILL MOST LIKELY DISRUPT THE VERTICAL COLUMN 
/AND "CURSOR 7" WILL BE SEEN, 


2200 

4566 

LFTST, 

setup 


/initialize. 

2201 

4557 


SR6 


/32 OR 64 




DECIMAL 


/ 

2202 

1131 


TAO 

[32 

/32 

2203 

1130 


TAD 

[-64 

/64 




OCTAL 


/ 

2204 

3040 


OCA 

LENGTH 

/ 

2205 

1377 


TAD 

("78BIT7 CURSOR 

/FILL ENTIRE DISPLAY BUFFER 

2206 

4544 


JMS I 

CLDBUFF 

/WITH "CURSOR ?»', 

2207 

7201 


CLA IAC 


/I 

2210 

3036 


OCA 

LF ADD 

/NUMBER TO DETERMINE POSITJOI 

2211 

4525 

LFTST1, 

JMS I 

[SETTIM 

/SET TIMER’, 




DECIMAL 


/ 

2212 

0005 


5 


/TIME, 

2213 

1376 


TAD 

(-20 

/NUMBER OF lines as negative 




OCTAL 


/ 

2214 

1037 


TAD 

LFEND 

/ADD ACTIVE BUFFER 

2215 

3037 


OCA 

lfend 

/AND SAVE FOR COUNTER', 

2216 

7346 


CLA CLL 

DMA RTL 

/■3 

2217 

1036 


TAD 

LF ADD 

/ 

2220 

7710 


SPA CLA 


/READY FOR PERIODS YET? 

2221 

3236 


JMP 

LFTST2 

/NO, CHECK "*» 

2222 

1037 


TAO 

LFEND 

/LF BUFFER LENGTH--2TEMP1 

2223 

3035 


DCA 

TEMPI 

/COUNTER', 

2224 

1121 


TAO 

CBUFFER-1 

/SET AUTO INDEX 
/FOR LOADING 

2225 

3010 


OCA 

A110 

2226 

1375 


TAD 

! 11 8BIT7 NORMAL 

/ALWAYS LOAD ENTIRE LF BUFFEI 
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2227 

3410 


OCA I 

A110 

/"’," 

2230 

2035 


ISB 

TEMPI 

/DONE YET? 

2231 

5226 


JMP 

■ *3 

/NO, 

2232 

7344 


CLA CLL 

CMA RAL 

/•a 

2233 

1036 


TAO 

lfaoo 

/ 

2234 

7710 


SPA CLA 


/READY FOR "»» YETT 

2235 

5251 


JMP 

LFTST3 

/NO, GO LOAD THE LF'S’, 

2236 

1115 

LFTST2, 

TAD 

C8UFFER-2 

/SET "JSTQRE" 

2237 

3041 


OCA 

ISTORE 

/FDR LOADING "*» 




DECIMAL 


/ 

2240 

1376 


TAD 

(*20 

/NUMBER OF LF TO LOAD’, 




OCtAL 


/ 

2241 

3035 


OCA 

TEMPI 

/COUNIER', 

2242 

1036 


TAO 

lfaoo 

/ADD POSITION INDICATOR - 

2243 

1041 


TAD 

ISTORE 

/ADDRESS’, 

2244 

3041 


OCA 

ISTORE 

/AND SAVE, 

2245 

1374 


TAO 

<"#4B!T7 BRIGHT 

/LOAD "BRIGHT #» 

2246 

3441 


OCA I 

ISTORE 

/LOAD, 

2247 

2035 


ISH 

TEMPI 

/DONE? 

2250 

5242 


JMP 


/NO, 

2251 

1121 

LFTST3i 

TAO 

CBUFFER-1 

/SET "ISTORE" • 

2252 

3041 


OCA 

ISTORE 

/LOADING "LF"’, 




DECIMAL 


/ 

2253 

1376 


TAO 

<•20 

/ 




OCTAL 


/ 

2254 

3035 


OCA 

TEMPI 

/counier; 

2255 

1036 


TAO 

LFAOO 

/ADD POSITION INDICATOR • 

2256 

1041 


TAO 

ISTORE 

/AND MAKE AN ADDRESS’, 

2257 

3041 


OCA 

ISTORE 

/SAVE FOR INDIRECT", 

/7 BIT FOR LF‘, 

2260 

1373 


TAD 

(LINEF06BIT7 

2261 

3441 


OCA I 

ISTORE 

/PUT IN BUFFER", 

2262 

2035 


ISH 

TEMPI 

/DONE? 

2263 

5255 


JMP 

,-6 

/NO, 

2264 

4556 

LFTST4, 

SR7 


/MANUAL INCREMENT? 

2265 

5270 


JMP 

t+3 

/NO, AUTO, 

2266 

7344 


CLA CLL 

CHA RAL 

/•2 FOR TIME’, 

2267 

3046 


OCA 

TIMEX 

/SET TIMEX FOR MANUAL INCREMENT, 

2270 

1132 

LFTST5| 

TAO 

CBUFFER 

/STARTING ADDRESS OF BUFFER, 

2271 

4567 


XOPGO 


/GO DISPLAY, 

2272 

4524 


JMS I 

CBUMP 

/CHECK MANUAL INCREMENT’, 

2273 

5270 


JMP 

LFTST5 

/YES, REPEAT", 

2274 

4575 


UQPSM 


/STOP DISPLAY’, 

2275 

2036 


JSZ 

LFAOO 

/UPDATE POSITION INDICATOR, 

2276 

2040 


ISH 

LENGTH 

/DONE YET? 

2277 

5211 


JMP 

LFTST1 

/NO, 

2300 

4560 


SR3 


/REMAIN IN THIS TEST? 

2301 

5200 


JMP 

LFTST 

/YES, 


/TEST TO CHECK "BBF AND EBP", 

/FILL ENTIRE BUFFER WITH "<», 

/SET »BBF" IN FIRST CHARACTER (''CURSOR ?»> AND MOVE 
/"EBF" WHICH WILL BE A BRIGHT E», BETWEEN THE "BBF» AND 
/»EBF" THE CHARACTERS ARE "BRIGHT T", MOVE "EBF" UNTIL ITS AT 
/THE LOWER RIGHT AT WHICH TIME THE SCREEN SHOULD BE EMPTY’, 
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/NOW MOVE "BBF" ONE POSITION PLACING A »B« ON THE LEFT 

/OF IT AND "VS» BEHIND IT, TEST IS COMPLETE WHEN THE SCREEN 

/1S FULL OF ">'S"’, 


2302 

4566 

FLOTST, 

SETUP 


/initialize, 


2303 

4525 


JM§ I 
DECIMAL 

csettim 

/SET TIMER FOR - 


2304 

0001 


1 

OCTAL 


/TIME, 


2305 

1372 


TAO 

<"<«P!T7 NORMAL 

/LOAD ENTIRE BUFFER WITH »<", 


2306 

4544 


JMS I 

CLOBUFF 

/ 


2307 

4557 


SR6 


/3? OK 647 





OECIMAL 


/ 


2310 

1117 


TAD 

032*20 

/32 


2311 

1116 


TAD 

0-64*20 

/64 





OCTAL 


/ 


2312 

3035 


OCA 

TEMPI 

/save AS A COUNTER 


2313 

7001 


I AC 


/ 


2314 

1035 


TAD 

TEMPI 

/ 


2315 

3036 


DCA 

TEMP2 

/TEMPS! * TEMPI + 1 


2316 

1121 


TAD 

CBUFFER-1 

/ 


2317 

3010 


OCA 

A110 

/BBF 


2320 

1132 


TAO 

CBUFFER 

/ 


2321 

3011 


DCA 

A111 

/INBETWEEN BBF+EBF 


2322 

1132 


TAO 

CBUFFER 

/ 


2323 

3012 


OCA 

AM? 

/EBF 


2324 

1371 


TAO 

(BUFFER-2 

/ 


2325 

3013 


OCA 

AI13 

/? CHARACTERS BEFORE BBF 


2326 

1121 


TAO 

CBQFFER-1 

/JUST BEFORE BBF 


2327 

3014 


OCA 

AI i 4 

/ 


2330 

1370 


TAO 

("74BJT7 CURSOR 

BBF / 


2331 

3410 


OCA I 

A110 

/LOAD FIRST BBF, 


2332 

5335 


JMP 

.+? 

/DO NOT DO IN BETWEEN THE FIRST 

TIME 

2333 

1367 

FLOTS1, 

TAO 

("?4B J T7 BRIGHT 

/ 


2334 

3411 


OCA J 

AMI 

/LOAD IN BETWEEN 


2335 

1366 


TAD 

("E4BJT7 BRIGHT 

EBF / 


2336 

3412 


DCA I 

All? 

/LOAD EBF 


2337 

1132 

FL0T54, 

TAD 

CBUFPER 

/ 


2340 

4567 

XOPGO 


/GO DISPLAY 


2341 

4524 


JMS J 

C8UMP 

/CHECK MANUAL INCREMENT’, 


2342 

5337 


JMP 

FLOTS4 

/AUTOMATIC 


2343 

2035 


ISH 

TEMPI 

/EBF AT LOWER RIGHT YET? 


2344 

5333 


JMP 

FLOTS1 

/NO, 


2345 

4570 


UQP8EL 

/SOUND A TUNE DO TO END OF THJS 

TEST 

2346 

1370 

FLDTS2, 

TAO 

("?4B IT7 CURSOR 

BBF / 


2347 

3410 

OCA I 

AM? 

/LOAD BBF 


2350 

1365 


TAO 

(" >4BIT7 NORMAL 

/ 


2351 

3413 


OCA l 

All? 

/POSITIONS 2 CHARACTER 8EFORE BBF 

2352 

1364 


TAO 

("84BIT7 BRIGHT 

/ 


2353 

3414 


OCA I 
NPAGE 

A114 

/THE CHARACTER BEFORE BBF’, 


2354 

5763 


JMP I 

(, *20067600 

/GO TO NEXT PAGE 


2363 

2400 






2364 

0502 
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2365 

0076 



2366 

1505 



2367 

0477 



2370 

2677 



2371 

4676 



2372 

0074 



2373 

00i2 



2374 

0452 



2375 

0056 



2376 

7754 



2377 

0677 




2400 

PAGE 


2400 

1132 

FLDTS3, TAD 

[BUFFER 

2401 

4567 

XQPGO 


2402 

4524 

JM? I 

[BUMP 

2403 

5200 

JMP 

FLDTS3 

2404 

2036 

IS? 

TEMP2 

2405 

5777' 

JMP 

FLDTS2 

2406 

4575 

UOPSM 


2407 

4560 

SR3 


2410 

5776' 

JMP 

FLDTST 


/(50 DISPLAY. 

/check manual increment; 
/AUTOMATIC 

/B8F AT LOWER RIGHT-1? 
/NO, 

/STOP THE DISPLAY', 
/REMAIN IN ENTIRE TEST? 
/YES, 


/TEST TO CHECK "EOS" {END OF ScREENI 
/LOAD ENTIRE BUFFER WITH "BRIGHT 7" 

/START AT THE UPPER LEFT WITH EOS 
/WHICH WILL BE A "CURSOR ON THE LEFT PUT 

/A "BRIGHT 0" AND BEHIND THE «X'S"‘, STARTING AT THE 
/UPPER LEFT THE USER SHOULD SEE THE SCREEN BEING 
/FILLED WITH X'S WITH A "0" PRECEOEING THEM, TEST 
/IS COMPLETE WHEN "EOS" IS AT THE BOTTOM RIGHT AND 
/THE SCREEN IS FULL OF X* S', 


2411 

4566 

EOSTST, 

setup 


/INITIALISE, 

2412 

4557 


SR6 


/32 OR 64? 




DECIMAL 


/ 

2413 

1117 


TAD 

[32*20 

/32 

2414 

1116 


TAD 

C.64*20 

/64 




OCTAL 


/ 

2415 

3037 


DCA 

TEMP3 

/SAVE TO DETERMINE END OF SCREEN 

2416 

4525 


JMS I 

[SETT IK 

/SET THE TIMER FOR ■ 




DECIMAL 



2417 

0001 


1 


/TIME 




OCTAL 



2420 

1375 


TAD 

("?4BIT7 BRIGHT 

/LOAD ENTIRE BUFFER - 

2421 

4544 


JMS J 

[LDBUFF 

/WITH "BRIGHT T»*, 

2422 

1121 


TAD 

CBUFFER-i 

/INIT, AU0, 

2423 

3010 


DCA 

A 110 

/ 

2424 

1374 


TAD 

(BUFFER-2 

/INIT A Ill’, 

2425 

3011 


DCA 

Alii 

/ 

2426 

1373 


TAD 

(BUFFER-3 

/INIT, A112i 

2427 

3012 


DCA 

AU2 

/ 

2430 

1372 

E0STS1, 

TAD 

( " ? S BIT 7 CURSOR 

EOS /LOAD EOS’, 

2431 

3410 


DCA I 

A110 

/ 

2432 

1371 


TAD 

("0SBIT7 BRIGHT 

/LOAD LAST VISIBLE CHARACTER, 
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2433 

3411 

DCA I 

Alii 


/ 


2434 

1370 

TAD 

("XSBJT7 

normal 

/LOAD A "NORMAL X"', 


2435 

3412 

DCA I 

AXIS 


/ 


2436 

1132 

EQSTS2| TAD 

[BUFFER 


/STARTING ADDRESS OF BUFFER 

2437 

4567 

XQPGO 



/GO, DISPLAY 


2440 

4524 

JMS I 

[BUMP 


/CHECK MANUAL INCREMENT 


2441 

3236 

JMP 

E0STS2 


/AUTOMATIC 


2442 

2037 

152 

TEMP3 


/FULL SCREEN COMPLETE? 


2443 

5230 

JMP 

E0STS1 


/NO, 


2444 

4575 

UQPSM 



/STOP THE DISPLAY, 


2445 

4560 

SR3 



/REMAIN IN TEST? 


2446 

5211 

JMP 

EOSTST 


/yes, 




/TEST FOR SHRINKAGE 






/PERIODS ARE PLACED IN EACH CORNOR 




/OF THE SCREEN 

with "Cursor space" filling 




/THE REST OF THE SCREEN, 

THE PERIODS 




/SHOULD REMAIN 

RATHER MOTIONLESS AT ALL 




/TIMES, 





2447 

4566 

SHRINK, SETUP 



/INITIALIZE, 


2450 

1367 

TAD 

!" SBIT7 

CURSOR 

/space WITH CURSOR SET', 


2451 

4544 

JMS J 

CLDBUFF 


/LOAD BUFFER 


2452 

1366 

TAO 

(SB 5 T7 

BRIGHT 

/PLACE A BRIGHT PERIOD 


2453 

3532 

DCA J 

[BUFFER 


/IN UPPER L‘EFT*, 


2454 

4557 

SR6 



/32 OR 64 CHAR? 


2455 

5265 

JMP 

SHR32 


/32 


2456 

1366 

TAD 

(",SB IT7 

BRIGHT 

/64 


2457 

3765 

DCA I 

(BUFFER+100-1 

/PLACE "PERIOD" IN UPPER 

RIGHT 

2460 

1366 

TAD 

SB XT7 

BRIGHT 

/ 


2461 

3764 

DCA I 

<23tl00*BUPFER 

/PLACE "PERIOD" IN LOWER 

left 

2462 

1366 

TAD 

(" , S BIT 7 

BRIGHT 

/ 


2463 

3763 

DCA I 

<23U00*BUFFER + i00.i /PLACE "PERIOD" 

IN LOWER 

2464 

5273 

JMP 

SHRINl 


/ 


2465 

13*6 

SHR32, TAD 

("', SB IT7 

BRIGHT 

/3g CHAR SETUP*, 


2466 

3762 

DCA J 

<BUFFER*40«1 

/PLACE "PERIOD" IN UPPER 

RIGHT 

2467 

1346 

TAD 

SBIT7 

BRIGHT 

/ 


2470 

3761 

DCA I 

<23t40*BUFFER 

/PLACE "PERIOD" IN LOWER 

left, 

2471 

1366 

TAD 

(SB IT7 

BRIGHT 

/ 


2472 

3760 

DCA I 

(23?40*BUFFER*40-1 /PLACE "PERIOD" 

IN LOWER 

2473 

4525 

SHRIN1, JMS I 

CSETTIM 


/SET IEST TIMER FOR- 




DECIMAL 





2474 

0144 

10*10 



/TIME 




OCTAL 





2475 

1132 

TAO 

[BUFFER 


/OBTAIN 8UFFER STARTING 

ADDRESS 

2476 

4567 

XQPGO 



/CO DISPLAY 


247 7 

4575 

UQPSM 



/STOP 01SPLAY 


2500 

4560 

SR3 



/REMAIN IN THIS TEST? 


2501 

3247 

JMP 

SHRINK 


/YES, 


2502 

2031 

IS2 

WORKVT 




2503 

1431 

TAD J 

WORKVT 




2504 

7630 

SNA 

CLA 




2505 

5310 

JMP 

i *3 




2506 

4757' 

JMS 

OEVCOD 




2507 

5756' 

JMP 

OSCHAR 






*<* 
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/f> 


./Os, 


2510 

4755' 


JMS 

SR7SR8 

/LOOK AT SR7 AND SR8 

2511 

5754 


JMP l 

(DSCHAR-i 

/ 



/REPORT 

END OF 

TEST, 


2512 

4566 

DONE, 

SETUP 


/INITIALISE, 

2513 

7604 


LAS 


/READ SR 

2514 

0353 


AND 

(1430 

/LOOK FOR CERTAIN SW SET, 

2515 

7640 


SgA CLA 


/ANY SET? 

2516 

5526 


JMP I 

CBCGIN 

/YES,'DON'T REPORT END', 

2517 

4557 


SR6 


/ 




decimal 


/ 

2520 

1117 


TAD 

C 38 * 20 

/32 

2521 

1116 


TAD 

C-64120 

/64 

2522 

3042 


OCA 

CQUNTi 

/ 

2523 

4525 


JMS I 

CSETTIM 

/ 

2524 

0062 


5T10 


/ 




OCTAL 


/ 

2525 

1121 


TAD 

CBUFFER-1 

/ 

2526 

3011 


DCA 

AI11 

/ 

2527 

1352 

DONEIi 

TAD 

(M00NE-1 

/ 

2530 

3010 


DCA 

A110 

/ 

2531 

1410 

D0NE2, 

TAD I 

AI10 

/ 

2532 

7450 


SNA 


/ 

2533 

5327 


JMP 

D0NE1 

/ 

2534 

3411 


DCA I 

Alii 

/ 

2535 

2042 


ISH 

COUNT1 

/BUFFER FILLED WITH "DONE 

2536 

5331 


JMP 

DONEE 

/NO 

2537 

1132 


TAO 

CBUFFER 

/ 

2540 

4567 


XQPGO 


/DO 

2541 

4575 


UDPSM 


/STOP 

2542 

5526 


JMP I 

CBCGIN 

/ 


2552 4647 

2553 1430 

2554 2000 

2555 3747 

2556 2001 

2557 4123 

2560 6077 

2561 6040 

2562 4737 

2563 7277 

2564 7200 

2565 4777 

2566 0456 

2567 0640 

2570 0130 

2571 0517 

2572 3677 

2573 4675 

2574 4676 

2575 0477 


A 
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2576 2302 

2577 2346 

2600 PAGE 


/KEYBOARD TEST 1 
/CARRIAGE RETURN ENOS TEST 
/RUBOUT IS ACTIVE 

/TEST THAT KIE WILL DISABLE AND ENABLE KBRD INTERRUPTS’, 

/TEST THAT KRB CAN READ THE BUFFER AND THAT IT CAN CLEAR THE FLAGi 


4 ~-\ 


/"A 


2600 

4777' 


JMS 

INJTOC 


2601 

4566 

KEYTSTi 

SETUP 


/INIT 

2602 

6030 

KEY J11 

KCF 


/CLEAR FLAG 

2603 

6031 

KEYUA, 

KSF 


/FLAG SET? 

2604 

5207 


JMP 

, *3 

/NO, OK, 

2605 

4562 


SR1A 


/HALT? 

2606 

7402 


HLf 


/KBRD FLAG NO CLEAR OR KSF SKIPPED 
/ON NO KBRB FLAG’, 

2607 

4561 


SR2 


/LOOP7 

2610 

5202 


JMP 

KEY 11 

/YES, 

2611 

1376 


TAD 

("J88IT7 CURSOR 

/FILL ENTIRE BUFFER WITH 

2612 

4544 


JMS I 

CLOBUFF 

/"CURSOR ?» INCASE "EOS" FAILS’, 

2613 

1121 


TAO 

CBUFFER-1 

/SET A J10 FOR - 

2614 

3010 


OCA 

Ati0 

/STORING CHARACTERS, 

2615 

1132 


TAD 

CBUFFER 

/SET A111 FOR » 

2616 

3011 


DCA 

Alii 

/SETTING "EOS"’, 

2617 

1121 


TAO 

CBUFFER-1 

/SET AJ12 FOR . 

2620 

3012 


DCA 

AI12 

/SETTING "CURSOR"’, 

2621 

1375 


TAD 

("X8BIT7 CURSOR 

EOS / 

2622 

3411 


DCA I 

A111 

/SET "EOS"-; 

2623 

1374 


TAD 

( 11 18BIT7 CURSOR 

/SET "CURSOR"', 

2624 

3412 


DCA I 

A112 

/PUT IN THE BUFFER’, 

2625 

4557 


SR6 


/32 OH 647 




DECIMAL 


/ 

2626 

1117 


TAD 

C32*20 

/32 

2627 

1116 


TAO 

C «6 4120 

/64 




OCTAL 


/ 

2630 

3035 


DCA 

TEMPI 

/SAVE SO END OF SCREEN CAN BE DETERMINED’, 

2631 

4357 


JMS 

GO 

/GO DISPLAY 

2632 

6031 

KEY1, 

KSF 


/KBRD FLAG SET? 

2633 

5232 


JMP 

,*i 

/NO, THEN WAIT’, 

2634 

A773' 

KEY3, 

JMS 

INTLD 

/SET UP FOR INTERRUPT RETURN 

2635 

2644 


KEY4 


/ 

2636 

7201 


CLA IAC 


/0001 

2637 

6035 

KEY 110» 

KIE 


/ENABLE TTY INTERRUPT 

2640 

6001 


ION 


/TURN INTERRUPT ON 

2641 

4563 


SRI 


/INTERRUPT SHOULD OCCUR OURING THIS JMS 

2642 

6002 


I OF 


/NO INTERRUPT’, TURN JNT OFF, 

2643 

7402 


HLI 


/WITH K8RP FLAG SET ANO TTY INT ENABLED 
/NO INTERRUPT OCCURRED’, 

2644 

6002 

KEY4 , 

IDF 


/ 

2645 

4561 


SR2 


/LOOP? 

2646 

5232 


JMP 

KEYl 

/YES, 

2647 

4773' 

KEYS, 

JMS 

INTLD 

/SET UP RETURN FROM INTERRUPT, 
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l*S>» 
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PACE 1-34 


2650 

2656 


KEY 6 



/ 

2651 

6035 

KEYJ.Ui 

KIE 



/DISABLE TTY INTERRUPT*, 

2652 

6001 


ION 



/INTERRUPT ON 

2653 

7000 


NOP 



/GIVE INTERRUPT A CHANCE TO J NT 

2654 

6002 


J OP" 



/TURN IT OFF 

2655 

5261 


JMP 

,44 


/1NT ENABLE OK 

2656 

6002 

KEY 6 , 

I OF 



/ 

2657 

4562 


SRIA 



/HALT? 

2660 

7402 


HIT 



/KIE WITH AC*0 FAIL'ED TO DISABLE TTY INT', 







/OR AN EXTRA KEY WAS HIT ON ANOTHER DEVICE 

2661 

4561 


SR2 



/LOOP? 

2662 

5247 


JMP 

KEYS 


/ 

2663 

4773' 

KEY7 1 

JMS 

INTLD 


/SET UP FOR INT 

2664 

2673 


KEY 8 



/ 

2665 

7201 


CLA 2 AC 



/0001 

2666 

6033 

KEYI12, 

KIE 



/ENABLE TTV INT 

2667 

6001 


ION 



/TURN JNT ON 

2670 

4563 


SRI 



/HALT 

2671 

6002 


I OF 



/ 

2672 

7402 


HLT 



/KIE WITH ACiiil FAILED TQ ENABLE TTY INT', 

2673 

4561 

KEY 61 

SR2 



/LOOP? 

2674 

5263 


JMP 

KEY7 


/YES, 

2675 

7240 

KEY?, 

CLA CMA 



/7777 

2676 

6036 

KEYI16, 

KRB 



/CLEAR FLAC AND READ BUFFER 

2677 

0120 


AND 

CBIT7 


/7 BIT CODE 

2700 

7421 


MQL 



/SAVE IN MO 

2701 

6031 

KEYU3, 

KSF 



/FLAG SET? 

2702 

5305 


JMP 

■ +3 


/NO OK, 

2703 

4562 


SRiA 



/HALT? 

2704 

7402 


HLT 



/KRB FAILED TO CLEAR THE KBRD FLAG’, 

2705 

4561 


SR2 



/LOOP? 

2706 

5275 


JMP 

KEY9 


/ 

2707 

7501 


MQA 



/MQ —> AC’, 

2710 

1372 


TAO 

(«RUBOUT*200 

/ 

2711 

7650 


SNA CLA 



/WAS JT A RUBOUT? 

2712 

5333 


JMP 

RUB 


/YES, 

2713 

7501 


MQA 



/ 

2714 

1371 


TAD 

(-CARRET+200 

/ 

2715 

7650 


SNA CLA 



/WAS IT A OR? 

2716 

5327 


JMP 

KEY2 


/YES, END OF TEST, 

2717 

1375 


TAO 

("X6BJT7 

CURSOR 

EOS /MOVE EOS : 

2720 

3411 


OCA I 

AI11 


/IN BUFFER’, 

2721 

1374 


TAD 

("16BJT7 

CURSOR 

/SET "CURSOR"*. 

2722 

3412 


DOA J 

A 112 


/ 

2723 

7501 


MQA 



/CHARACTER TO AC’, 

2724 

3410 


DOA I 

A 110 


/STORE TO BE DISPLAYED’, 

2725 

2035 


JSZ 

TEMPI 


/END OF BUFFER? 

2726 

5232 


JMP 

KEYl 


/NO, 

2727 

4560 

KEY2, 

SR3 



/YES, REMAIN IN THIS TEST? 

2730 

5201 


JMP 

KEYTST 


/YES, 

2731 

4575 


UDPSM 



/STOP FOR EXIT’, 

2732 

5770' 


JMP 

CURTST 


/GO TO NEXT TEST', 

2733 

1367 

RUB, 

TAD 

(-BUFFER*! 

/WILL RUBOUT MOVE CHARACTER - 

2734 

1010 


tad 

AI10 


/BEHIND BUFFER? 

2735 

7630 


SNA CLA 



/ 
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2736 

5232 

JMP 

KEYl 


/YES, 

2737 

7240 

CL a C(i)A 



/ 

2740 

1010 

TAD 

AI10 


/ 

2741 

3010 

DOA 

A 110 


/DECREMENT AU 0 FOR RUBOUT 

2742 

1010 

TAD 

Alia 


/ 

2743 

3012 

OCA 

AI £ 2 


/ 

2744 

1374 

TAO 

("1SBIT7 

CURSOR 

/ 

2745 

3412 

OCA I 

AI £ 2 


/ 

2746 

1012 

TAD 

A 112 


/ 

2747 

3011 

OCA 

Alii 


/RESET All! 

2750 

1375 

TAD 

("X6BIT7 

CURSOR 

EOS / 

2751 

3411 

DOA I 

Alii 


/RESET EOS 

2752 

7240 

CLA CMA 



/ 

2753 

1035 

TAD 

TEMPI 


/RESET TEMPI 

2754 

3035 

DOA 

TEMPI 


/ 

2755 

5232 

JMP 

NPAGE 

KEYl 


/ 

2756 

5770 

JMP I 

(',+20067600 

/GO TO NEXT PAGE 



/routine to GO 

DISPLAY with out 

BACKGROUND 



/USED ONLY IN KBRD TESTS, 



2757 

0000 

GO, OPEN 




2760 

1132 

TAD 

CBUFFER 


/ADDRESS OF DATA 

2761 

4577 

UDPLA 



/AC -»> STARTING ADDR REG 

2762 

6214 

RDF 



/GET FIELD 

2763 

4576 

UQPGO 



/GO display 

2764 

5757 

JMP I 

GO 


/EXIT, 


2767 

3101 




2770 

3000 




2771 

7763 




2772 

7601 




2773 

4163 




2774 

0661 




2775 

3730 




2776 

0677 




277 7 

0355 





3000 

PAGE 





/KEYBOARD TEST 

2 




/TEST OF SPECIAL KEYS 1 




/TEST THAT KCF 

WILL CLEAR THE KBRD FLAG, 

3000 

4566 

CURTST, SETUP 


/INITIALIZE. 

3001 

1377 

TAD 

("T6BJT7 CURSOR 

/ 

3002 

4544 

JMS I 

CLDBUFF 

/LOAD BUFFER WITH CONTENT? OF AC 

3003 

1376 

TAO 

("8SB1T7 CURSOR 

/ 

3004 

3532 

DCA I 

CBUFFER 

/ 

3005 

1375 

TAD 

("T6BIT7 CURSOR 

EOS / 

3006 

3514 

DOA J 

CBUFFER*! 

/ 

3007 

1132 

TAO 

CBUFFER 

/ 
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3010 

4577 

CUR1, 

UpPLA 


/AC —> STARTING ADDR REG’, 

3011 

6214 


RDF 


/GET FIELD’, 

3012 

4576 


UQPGO 


/GO DISPLAY, 

3013 

6031 

KEYJ4, 

KSF 


/WAIT FOR KBRD FLAG, 

3014 

5213 


JMP 

,-i 

/WAIT 

3015 

6030 

KEYJ5, 

KGF 


/CLEAR FLAG 

3016 

6031 

KEY J14, 

KSF 


/FLAG SET? 

3017 

5222 


JMP 

,+3 

/NO OK 

3020 

4562 


SRiA 


/HALT? 

3021 

7402 


HIT 


/KCF FAILED TO CLEAR THE KBRD FLAG 

3022 

4561 


SR2 


/L00P7 

3023 

5215 


JMP 

KEYI5 

/YES, 

3024 

6034 

KEY 1151 

KRS 


/READ BUFFER 

3025 

0120 


AND 

CBIT7 

n bit 

3026 

3035 


OCA 

TEMPI 

/SAVE CHARACTER', 

3027 

1035 


TAD 

TEMPI 

/GET CHAR BACK 

3030 

1374 


TAO 

(-OARRET+200 

/CHECK FOR CARRIAGE RET', 

3031 

7650 


SNA CL* 


/WAS IT ONE? 

3032 

5250 


JMP 

CUR2 

/YES, END OF TEST', 

3033 

1373 


TAD 

(CURPOS-1 

/ADDRESS-1 OF TABLE FOR CHEDKING CODE’, 

3034 

3010 


OCA 

A110 

/TO AUTO INDEX’, 

3035 

1372 


TAD 

< CURMSG-1 

/FDR DETERMINING ADDRESS OF MSG, 

3036 

3042 


OCA 

C0UNT1 

/ 

3037 

1410 


TAD I 

AJ10 

/ 

3040 

2042 


ISH 

COUNT1 

/ + i TO ADORESS OF MSG', 

3041 

7450 


SNA 


/WAS THE CODE FOUND? 

3042 

5246 


JMP 

, +4 

/NO, DISPLAY "WHAT?"’, 

3043 

1035 


TAD 

TEMPI 

/GET CHARACTER CODE, 

3044 

7640 


SEA CLA 


/DOES TABLE MATCH CHARACTER, 

3045 

5237 


JMP 

,*6 

/NO, TRY NEXT CODE IN TABLE. 

3046 

1442 


TAO I 

COUNT! 

/ 

3047 

5210 


JMP 

CUR1 

/ADDRESS OF MSG IN AC’, 

3050 

4575 

CUR2, 

UDPSM 


/STOP 

3051 

4560 


SR3 


/REMAIN IN THIS TEST', 

3052 

5200 


JMP 

CURTST 

/YES, 




npage 


/GO TO NEXT TEST’, 

3053 

5771 


JMP I 

(,*20267600 

/GO TO NEXT PAGE 



/ROUTINE TO LOAC 

) BUFFER WITH A 

SWIRL PATTERN’, 

3054 

0000 

LOSWLi 

OPEN 



3055 

7300 


cla cll 


/ 

3056 

1050 


TAD 

CHAR 

/GET CHARACTER 

3057 

3037 


DCA 

TEMP3 

/SAVE IT', 

3060 

1121 


TAO 

CBUFFER-1 

/BUFFER-1 FOR USE !N- 

3061 

3010 


OCA 

A 110 

/AUTO INDEX, 




DECIMAL 


/ 

3062 

1130 


TAD 

064 

/ 




OCTAL 


/ 

3063 

3370 


DCA 

("L 

/COUNTER FOR LINE LENGTH, 

3064 

4557 


SR6 


/32 OR 64 CHARACTER? 

3065 

5324 


JMP 

SWL32 

/32 CHAR 




DECIMAL 


/ 

3066 

1116 


TAD 

0 64*20 

/ 




,/T> 


/VT8-E VIDEO DISPLAY TEST 


MAINOEC-08-OHVTA-8-L PALI® VUi 23-FEB-73 


14118 


3067 

3367 

3'070 

1370 

3071 

3040 

3072 

1037 

3073 

0120 

3074 

3035 

3075 

1047 

3076 

1035 

3077 

3410 

3100 

2367 

3101 

7610 

3102 

5654 

3103 

2035 

3104 

1035 

3105 

1366 

3106 

7640 

3107 

5312 

3110 

1131 

3111 

3035 

3112 

2040 

3113 

5275 

3114 

2037 

3115 

1037 

3116 

1366 

3117 

7640 

3120 

5270 

3121 

1131 

3122 

3037 

3123 

5270 

3124 

1365 

3125 

3370 

3126 

1117 

3127 

5266 


OCTAL 



OCA 

(»C 


LOSWLI, 

TAO 

("L 



DCA 

TEMP4 



TAO 

TEMP3 



AND 

CBJT7 



DCA 

TEMPI 


L0SWL2, 

TAD 

C82CS3 



TAD 

TEMPI 



DCA I 

AIi3 



ISH 

SKP CLA 

<»C 



JMP I 

LDSWL 



ISH 

TEHP1 



TAO 

TEMPI 



TAO 

(-140 



SgA CLA 
JMP 

,+3 



TAO 

C» 6BIT7 

NORMAL 


DCA 

TEHP1 



ISH 

TEHP4 



JMP 

L0SWL2 



ISH 

TEMP3 



TAD 

TEMP3 



TAO 

SHA CLA 

! -140 



JMP 

LOSWLI 



TAO 

C" SBIT7 

NORMAL 


OCA 

TEMP3 



JMP 

OECJHAL 

LOSWLI 


SWL32, 

TAO 

OCtAL 

(.32 



DCA 

DECIMAL 

("L 



TAD 

OCTAL 

C 32 * 20 



JMP 

LDSWL1-2 



/ 

/BUFFER SIZE COUNTER', 

/ 

/ 

/GET A NUMBER AND 

/MAKE A 7 BIT CHARACTER OUT OF IT, 

/SAVE CHARACTER 

/ADD CONTROL BITS TO » 

/CHARACTER AND - 
/STORE IN THE BUFFER', 

/BUFFER FILLED! 

/NO , 

/YES, EXIT', 

/INCREMENT FUTURE CHARACTER, 

/ 

/IF CODE 140 SET TO 40 
/ 

/ 

/ 

/ 

/LINE COMPLETE 
/NO, 

/YES, INCREMENT FUTURE CHARACTER, 
/ 

/IF CODE 140 SET TO 40’, 

/IS IT 140T 
/NO, OK, 

/RESET TEMP3 TO 40 
/STORE IT, 

/ 

/ 

/SET LINE LENGTH FOR 
/ 

/32 CHARACTERS’ 

/ 

/ 

/ 

/ 
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3165 7740 

3166 7640 

3167 0303 

3170 0314 

3171 3200 

3172 4571 

3173 4541 

3174 7763 

3175 3677 

3176 0642 

3177 0677 

3200 PAGE 


/KEYBOARD TEST 3, 

/TEST TO PRINT oClT THE LETTER AND OCTAL VALUE 
/AND POSITION OF SWITCH, 



/YTS.E VIDEO DISPLAY TEST 1 MAINQEC=08„DHVTA.B.L PAL10 V141 23AFEBL73 141 IS PAQE 1„38 


/test that caf will: enable the kbhd interrupt 
/ANq THAT IT CAN CLEAR the flab, 


3200 

4566 

OCT, 

SETUP 


/GENERAL INITIALISE, 

3201 

4777' 


JMS 

INYLO 

/SET UP FOR INTERRUPT 

3202 

3222 


0CT4 


/ 

3203 

6035 

KEYl17i 

KIE 


/DISABLE INT 

3204 

6007 


CAF 


/ENABLE INTERRUPT FOR KBRD 

3205 

1376 


TAQ 

("3SB1Y7 CURSOR 

/CURSOR OHARACTER’, 

3206 

3532 


OCA I 

CBUFFER 

/STORE 

3207 

1375 


TAD 

< 11 7SBIT7 CURSOR 

EOS / 

3210 

3774 


OCA I 

(BOFFER+1 

/ 

3211 

4773' 


JMS 

GO 

/DISPLAY 

3212 

6031 

OCT1, 

KSF 


/FLAG FROM KBRD SET? 

3213 

5212 


JMP 

,-£ 

/NO, THEN WAIT FOR A CHARACTER', 

3214 

6034 

KEYI6, 

KRS 


/READ CHARACTER', 

3215 

7421 


MQL 


/SAVE in the MO - , 

3216 

6001 


ION 


/ 

3217 

4563 


SRI 


/INTERRUPT SHOULD OCCUR DURING THIS JMS 

3220 

6002 


IDF 


/ 

3221 

7402 


HLT 


/INITIALISE FAILED TO SET KBRD INTERRUPT 
/ENABLE, 

3222 

6002 

OCT4, 

I OF 


/ 

3223 

4561 


SR2 


/LOOP? 

3224 

5201 


JMP 

OCT+1 

/YES, 

3225 

6007 

OCT5, 

CAF 


/1NJ T -CLEAR FLAG 

3226 

6031 

KEYI18, 

KSF 


/FLAG SET? 

3227 

5232 


JMP 

,+3 

/NO, OK 

3230 

4563 


SRI 


/HALT? 

3231 

7402 


HLT 


/INITIALIZE FAILED TO CLEAR KBRD FLAG 

3232 

7000 


NOP 


/MUST BE HERE ON ACCOUNT OF SCOPE LOOP", 

3233 

4561 


SR2 


/LOOP? 

3234 

5225 


JMP 

0CT5 

/YES, 

3235 

4773' 


JMS 

GO 

/RESTART DISPLAY 

3236 

7501 


MBA 


/GET IT BACK 

3237 

0120 


ANO 

CBJT7 

/MAKE IT A 7 BJT’, 

3240 

3035 


DCA 

TEMPI 

/SAVE THE 7 BIT CODE’, 

3241 

1035 


TAD 

TEMPI 

/GET THE CHARACTER JUST TYPEO 

3242 

1372 


TAD 

(-CARRET+200 

/ 

3243 

7650 


SNA CLA 


/IS II A CARRIAGE RETURN? 

3244 

5314 


JMP 

0CT3 

/YES IT WAS, 

3245 

4572 


UOPMS 


/READ STATUS FOR SENSE SWITCH 

3246 

7104 


CLL RAL 


/PUT IT IN THE LINK, 

3247 

7204 


CLA RAL 


/BACK to AC11 

3250 

1371 


TAD 

C0SBJT7 

/EITHER 0 OR 1", 

3251 

3341 


DCA 

MOCT2 

/ 

3252 

1035 


TAD 

TEMPI 

/GET CODE, 

3253 

7041 


CMA I AC 


/NEGATE 

3254 

1131 


TAD 

C40 

/ 

3255 

7540 


SMA SHA 


/CODE LESS THAN 40? 

3256 

5262 


JMP 

i+4 

/NO, 

3257 

1370 


TAD 

('USBIT7-40 

/ 

3260 

7700 


SMA CLA 


/IS II MORE THAN 137? 

3261 

5266 


JMP 

,+5 

/NO, ITS IN THE RANGE OF 40-137 

3262 

7300 


CLA CLL 


/0 


/VT8-E VIDEO D 

SPLAY 

TEST 1 

MAINDEC.08.OHVTA-B.L 

3263 

1367 


TAO 

(»?SBIT7 b8 

3264 

3322 


DCA 

MOCT 

3265 

5270 


JMP 

i +3 

3266 

1035 


TAO 

TEHP1 

3267 

3322 


OCA 

MOOT 

3270 

1366 


TAO 

(-4 

3271 

3042 


DCA 

COUNT1 

3272 

1365 


TAO 

(MOCT1.1 

3273 

3010 


OCA 

A110 

3274 

7501 


MQA 


3275 

7104 


CLL RAL 


3276 

7004 

0CT2, 

RAL 


3277 

7006 


RTL 


3300 

7421 


MQL 


3301 

7501 


MQA 


3302 

0364 


ANO 

(7 

3303 

1371 


TAO 

(H0.200 

3304 

3410 


OCA I 

AI i 0 

3305 

7501 


MQA 


3306 

2042 


ISZ 

COUNT! 

3307 

5276 


JMP 

0CT2 

3310 

7300 


CLA CLL 


3311 

1363 


TAD 

(MOCT 

3312 

4577 


UDPLA 


3313 

5212 


JMP 

OCT1 

3314 

4560 

0CT3, 

SR3 


3315 

5200 


JMP 

OCT 

3316 

5762' 


JMP 

MQREVT 

3317 

4761' 


JMS 

SR7SRB 

3320 

5760' 


JMP 

KEYTST-1 

3321 

5526 


JMP I 

CBEGIN 

3322 

0077 

HOCTi 

"?«BIT7 


3323 

0040 


" SB IT7 

BLINK 

3324 

0275 


"8SBIT7 

3325 

1040 


" SB IT7 

EBF 

3326 

0077 

MOCTli 

"788177 


3327 

0077 


"7S8IT7 


3330 

0077 


"TSBIT7 


3331 

0077 


"75BIT7 


3332 

0040 


" SBIT7 


3333 

0040 


" SBIT7 


3334 

0123 


" S S B J T 7 


3335 

0127 


"WSBIT7 


3336 

0040 


" 5BIT7 


3337 

0275 


"H58IT7 

BLINK 

3340 

0040 


» SBIT7 


3341 

0077 

MOOT2, 

" ? S BIT 7 


3342 

3330 


"XSBJT7 

BLINK EOS 



/ROUTINE FOR LOOPING, 

3343 

0000 

XLOOP, 

OPEN 


3344 

7200 


CLA 



PAL10 V141 23.FEB.73 14118 PA6E 1-39 

/blank first Part because of non-print type, 

/SET SBF 

/GO SET OCTAL 

/GET 7'BIT CODE 

/STORE PRINTABLE CHARACTER-, 

/ 

/ 

/SET AUTO INDEX 
/FOR STORING OCTAL 
/GET 7.8 BIT CODE', 

/LEFT ONE ON ACCOUNT OF LINK 
/LEFT i 

/LEFT 2| SHOULD POSITION FIRST TO STORE', 

/SAVE IN HO, 

/HQ AC’, 

/SAVE 9-11 

/ADD TO MAKE 7 BIT NUMBER', 

/PUT IN MESSAGE BUFFER", 

/ 

/DONE ALL 4 
/NO 
/0 

/ADDRESS OF MESSAGE 
/LOAD ADDRESS 

/GO WAIT FOR ANOTHER CHARACTER', 

/REMAIN IN THIS TEST? 

/YES, 

/MORE VT'S TO DO 

/LOOK AT SR7 AND SRB TO SEE 

/IF WE REMAIN IN THIS SECTION, 

/REMAIN IN KBRD SECTION 
/DO TEST FROM BEGINNING', 


/MAKE SURE THE AC IS 0", 




23AFEBi73 


14118 
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/VT8-E VIDEO DISPLAY TEST 1 MAINOEC-08-DHVTA-B-L PAL10 V141 




3345 

1743 

tad i 

XLOOP 

/get the return pointer', 

3346 

3006 

OCA 

SIX 

/SAVE THE POINTER', 

3347 

4561 

SR2 


/LOOP?" 

3350 

5406 

JMP 1 

SIX 

/YES, LOOP ON TEST’, 

3351 

2042 

152 

COUNT1 

/DONE YET? 

3352 

5406 

JMP I 

SIX 

/NO, 00 TEST AGAIN’, 

3353 

2343 

IS2 

XLOOP 

/+! FOR RETURN 

3354 

4560 

SR3 


/REMAIN IN CURRENT TEST? 

3355 

5743 

JMP I 

XLOOP 

/YES, 

3356 

2343 

I 32 

XLOOP 

/+! TO EXIT TEST 

3357 

3743 

JMP I 

XLOOP 

/EXIT' CURRENT TEST’, 


N \ 


3360 2600 

3361 3747 

3362 3547 

3363 3322 

3364 0007 

3365 3325 

3366 7774 

3367 2077 

3370 0077 

3371 0060 

3372 7763 

3373 2757 

3374 4701 

3375 3677 

3376 0643 

3377 4163 



3400 


page 




/STARTS 

display 

ANO BACKGROUND 

3400 

0000 

DPGOX, 

open 


3401 

4577 


uqpla 


3402 

4777 


JMS I 

(C4LTIM 

3403 

6035 

KEYJ19, 

KIE 


3404 

7604 


LAS 


3405 

0113 


ANO 

C100 

3406 

7640 


SHA OLA 


3407 

5865 


JMP 

NOBACK 

3410 

4776' 


JMS 

INTLD 

3411 

3426 


XQPGOl 

DECIMAL 


3412 

1145 


TAD 

OCfAL 

C - £ 0 

3413 

3775' 


OCA 

BACKPA 

3414 

7301 

XQPG04, 

OLA OIL 

I AC 

3415 

6214 


RDF 


3416 

4576 


UDPGO 


3417 

1055 

FLSET, 

TAD 

LINK 

3420 

7104 


CLL RAL 


3421 

1054 


TAO 

MQ 


JOB, 


/UOAP STARTING ADDRESS OF DATA BUFFER', 
/IF "BLINK" IS SET THEN THE TIME 
/MUST BE CHANGED’, 

/ALWAYS DISABLE CONSOLE TTY INTERRUPT', 
/LOOK AT BACKGROUND SW", 

/AND ONLY KEEP THAT ONE', 

/IS BACKGROUND ALLOWED? 

/NO, 

/SET UP FOR INTERRUPT 
/RETURN ADDRESS, 

/ 

/SET yp TO COUNT BACKGROUND PASSES 
/ 

/FOR NO INTERRUPT DETECTION, 

/ 0001 , 

/GET FIELD 1 , 

/ALPHA-NUMERIC INTI ENABLED GO', 
/RESTORE LINK', 

/ 

/ 








/VT8.E 


' I DEO 1 

DISPLAY 

TEST 1 

MAINDEC- 

08-OHVTA.B.L 

PAL10 V141 23.FEB.73 14118 

3422 

7421 


MQL 


/RESTORE MQ', 

3423 

1053 


TAD 

AC 

/RESTORE AC, 

3424 

6001 


ION 


/INTERRUPT ENABLED’, 

3425 

5706 


JMP I 

BACKST 

/START BACKGROUND 

3426 

4571 

XOPGOl, 

i UOPCL 


/CLOCK FLAC SET? 

3427 

7402 


HLT 


/NO, ILLEGAL INTERRUPT’, 

/NO SCOPE LOOPING PROVIDED, 

/PROGRAM MUST RE RESTARTED', 

3430 

3053 


OCA 

AC 

/SAVE THE AC', 




DECIMAL 


/ 

3431 

1145 


TAO 

C-10 

/SET UP TO COUNT BACKGROUND PASSES 




OCTAL 


/ 

3432 

3775' 


DCA 

BACKPA 

/FOR NO INTERRUPT DETECTION, 

3433 

2045 


ISH 

TIME 

/DONE DISPLAYING REQUIRED TIME? 

3434 

5245 


JMP 

XDPG02 

/ 

3435 

7604 


LAS 


/LOOK AT LOOP SWITCH', 

3436 

7510 


SPA 


/CHECK HALT SWITCH 

3437 

7402 


HLT 


/SR0 WAS SET TO HALT PROGRAM, 

3440 

0112 


ANO 

C1000 

/ 

3441 

7650 


SNA CLA 


/LOOP SWITCH SET? 

3442 

5254 


JMP 

XDPG03 

/NO 




DECIMAL 


/ 

3443 

1145 


TAO 

C«10tl 

/RESET TIME - 




OCTAL 


/ 

3444 

3045 


DCA 

TIME 

/COUNTER FOR 1 SECOND 

3445 

6201 

X0PGO2, 

, CDF 

00 

/CHANGE TO DF 0 

3446 

1774 


TAD I 

(HERO 

/GET CONTENTS OF 0 OF FIELD 0 . 

3447 

3000 


OCA 

HERO 

/AND PLACE IT IN PROGRAM FIELD, 

3450 

4060 


HOMEDF 


/CHANGE BACK TO PROGRAM DF, 

3451 

1053 


TAO 

AC 

/RESTORE AC, 

3452 

6001 


ION 


/interrupt ON, 

3453 

5400 


JMP I 

HERO 

/CONTINUE BACKGROUND', 

3454 

7010 

XOPG03, 

RAR 


/L —> AC0 1 

3455 

3055 


OCA 

LINK 

/SAVE THE LINK’, 

3456 

6201 


CDF 

00 

/GO TO DF 0 

3457 

1774 


TAO I 

(HERO 

/GET CONTENTS OF FIELD 0 - 

3460 

3306 


DCA 

BACKST 

/AND SAVE IN PROGRAM FIELD', 

3461 

4060 


HOMEDF 


/RESTORE DF, 

3462 

7701 


ACL 


/LOAD MQ INTO AC', 

3463 

3054 


OCA 

MQ 

/SAVE MQ', 

3464 

5600 


JMP I 

OPGOX 

/EXIT, AG*Ls0 

3465 

6214 

NOBACK, 

RDF 


/GET FIELD’, 

3466 

4576 


UDPGO 


/ALPHA-NUMERIC INTERRUPT DISABLED, 

3467 

1373 

NBACK2, 

TAD 

(tig 

/OBTAIN LAST "AC FROM THIS NON-BACK JOB 

3470 

4571 


UOPCL 


/CLOCK FLAG? 

3471 

5275 


JMP 

i+4 

/NO, 

3472 

2045 


ISZ 

TIME 

/YES, DONE TIME? 

3473 

5270 


JMP 

,-3 

/NO, WAIT, 

3474 

5277 


JMP 

i*3 

/ 

3475 

7001 


I AC 


/INCREMENT THE AC SO THE PROGRAM LOOKS - 

3476 

5270 


JMP 

,■6 

/LIKE SOMETHING IS RUNNING, 

3477 

3373 


DCA 

<"H 

/SAVE THE "AC"’, 

3500 

4561 


SR2 


/LOOP? 

3501 

7610 


SKP CLA 


/YES, 

3502 

5600 


JMP I 

OPGOX 

/NO, EXIT, ACS0, 



'10EO DISPLAY 

test 1 

MAINOEC.06.DHVTA-B-L 

PAL10 V141 23iFEBi73 




OECIMaL 


/ 

3503 

1145 


TAD 

C-£0tl 

/SET TIMER FOR 




OCTAL 


/ 

3504 

3045 


DCA 

TIME 

/l SECOND, 

3505 

5267 


JMP 

NBACK2 

/ 

3506 

4805 

bagkst 

1 IS2TST 


/THIS LOCATION GETS MODIFIED! 



/ROUTINE t° IOAC 

1 a buffer with 




/AN INCREMENTING 

i 7 BIT PATTERN - , 




/PLUS 1 

CONTROL SITS, 


3507 

0000 

LDINC, 

OPEN 



3510 

7300 


cl a c ll 


/ 

3511 

4557 


SR6 


/32 OR 64 CHARACTER, 




DECIMAL 


/ 

35i2 

1117 


TAD 

032*20 

/ 3 2, 

3513 

1116 


TAD 

C-64*20 

/64 , 




OCTAL 


/ 

3514 

3035 


DCA 

TEMPI 

/SAVE COUNT, 

3515 

1121 


TAD 

CBUFFER-1 

/BUFFER-i POR . 

3516 

3010 


OCA 

A110 

/AUTO-INDEX USE', 

3517 

1131 

LOlNCl 

, TAO 

C<» &BIT7 NORMAL 

/7-BIT CODE FOR SPACE', 

3520 

3050 


DQA 

CHAR 

/0 —> CHAR', 




decimal 


/ 

3521 

1130 


TAD 

C-64 

/ 




OCTAL 


/ 

3522 

3372 


DCA 

("C 

/COUNTER', 

3523 

1030 

L0INC2 

, TAD 

CHAR 

/CONTENTS OF CHAR AND 

3524 

0120 


AND 

CSJT7 

/MASK A 177 FOR A 7.BIT CODE, 

3525 

1047 


TAD 

CB2CB3 

/NOW ADD THE CONTROL BITS TO 

3526 

3410 


DCA I 

AI10 

/STORE IN THE BUFFER', 

3527 

2050 


IS2 

CHAR 

/UPDATE FUTURE CHARACTER 

3530 

7000 


NOP 


/ 

3531 

2035 


ISH 

TEMPI 

/COMPLETED BUFFER YET? 

3532 

7610 


SKP CLA 


/NO 

3533 

5707 


JMP I . 

LDINC 

/YES, EXIT' ACP0', 

3534 

2372 


JS2 

<"C 

/ 

3535 

5323 


JMP 

LDINC2 

/ 

3536 

5317 


JMP 

UD1 NCI 

/ 

3 5 3 7 

7604 

DVCOO, 

LAS 



3540 

3020 


DCA 

lOfTAB 


3541 

3021 


DCA 

I0TTAB*1 


3542 

1371 


TAD 

(IOTTAB 


3543 

3031 


DCA 

WORKVT 


3544 

4770' 


JMS 

DEVCOD 


3545 

7402 


HUT 



3546 

5526 


JMP I 

CBEOIN 


3547 

2031 

moRevt 

, IS2 

WORKVT 


3550 

1431 


TAD I 

WORKVT 


3551 

7650 


SNA 

CLA 


3552 

5767' 


JMP 

0CT3+3 
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/VT8-E VJOEO OISPLAY TEST 1 MAINDEC-0B.OHVTA.8-L 


3553 

4770' 

JMS 

OEVCOD 

3554 

5766' 

JMP 

KEYTST 


3566 

2601 





3567 

3317 





3570 

4123 





3571 

0020 





3572 

0303 





3573 

0332 





3574 

0000 





3575 

4364 





3576 

4163 





3577 

3720 






3600 


PAGE 





/ROUTINE 

: TP 

INCREMENT CB2+CB3 

3600 

0000 

CB3CB2, 

OPEN 



3601 

7300 


CLA 

DLL 


3602 

1047 


TAO 


CB2CB3 

3603 

1377 


TAO 


(-600 

3604 

7640 


S2A 

CLA 


3605 

5211 


JMP 


1 +4 

3606 

2200 


IS2 


CB3CB2 

3607 

3047 


DCA 


CB2CB3 

3610 

5600 


JMP 

I 

C83CB2 

3611 

1047 


TAD 


CB2CB3 

3612 

1126 


TAD 


C 200 

3613 

3047 


OCA 


CB2CB3 

3614 

5600 


JMP 

I 

CB3CB2 



/ROUTINE TO 

set 

THE AMOUNT OF 

3615 

0000 

settim, 

OPEN 



3616 

7300 


CLA 

CLL 


3617 

3046 


DCA 


TIMEX 

3620 

1615 


TAO 

I 

SETTIM 

3621 

7041 


CMA 

I AC 


3622 

3376 


DCA 


(«A 

3623 

7604 


LAS 



3624 

0126 


AND 


C200 

3625 

7640 


SHA 

CLA 


3626 

7001 


I AC 



3627 

1375 


TAO 


<•6 

3630 

3374 

SETTJ, 

DCA 


<»B 

3631 

1046 


TAD 


TIMEX 

3632 

1374 


TAO 


( 11 B 

3633 

3046 


OCA 


TIMEX 

3634 

2376 


IS2 


("A 

3635 

5231 


JMP 


,»4 

3636 

2815 


JSZ 


SETTIM 

3637 

5615 


JMP 

I 

SETTIM 
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/ 

/CONTROL BITS . 

/2 ANO 3 BEEN A 
/DISPLAYED YETt 
/NO, 

/YES, *1 FOR EXIT, 

/0.->CB2CBS, 

/exit, acpo, 

/ADD 200 » 

/TO THE CONTROL - 
/WORD, 

/EXIT, AC?0, 

TIME', 

/ 

/0 

/0««>T[MEX’, 

/GET AMOUNT OF TIME (SECONDS) 

/NEGATE SECONDS, 

/SAVE IT', 

/LOOK FOR 50.60 CYCLE SW, 

/ 

/SKIP IF 60 CYCLE 
/I (50 CYCLE)', 

/60 CYCLE 

/SAVE AS COUNT REQUIRED FOR ,1 SECOND', 
/ADD ACCUMULATED TIME ’» 

/PLUS ,1 SECOND ANO - 
/SAVE, 

/TIMEX SET FOR AMOUNT OF TIME? 

/NO, 

/+1 FOR EXIT', 

/EXIT, ACP0, 



-# 
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/special entrance to display desired character'. 



3fi40 

4566 

SETCHRi 

setup 



3641 

7604 


LA? 

C B1T 7 

/READ SWITCHES FOR CHARACTER 

3642 

0120 


AND 

/KEEP 7-BIT CODE 

3643 

3050 


OCA 

CHAR 

/SAVE FOR THE CHARACTER', 

3644 

7604 


LAS 


/READ SWITCHES FOR CONTROL BIT', 

3645 

0373 


AND 

(3600 

/SAVE CONTROL BITS', 

3646 

3047 


DCA 

CB2CB3 

/ 

3647 

7402 


HLT 


/SET SR OPTIONS 

3650 

5772' 


JMP 

DSCHA1 

/GO DISPLAY 



/ROUTINE to PRIME THE VTB-e DATA buffer WITH 



/the DATA THAT 

is In the location defined 



/AFTER 

THE CALL 

1 


3651 

0000 

PRIME, 

OPEN 



3652 

4537 


SR6 


/32 OR 64? 




DECIMAL 


/ 

3653 

1131 


TAD 

C 32 

/32 

3654 

1371 


TAD 

(-64+1 

/64 




OCTAL 


/ 

3655 

3044 


DCA 

COUNTS 

/ 

3656 

1651 


TAD I 

PRIME 

/ADDRESS OF DATA 

3657 

4577 


UOPLA 


/ 

3660 

4575 


UDPSM 


/MAINTENANCE MODE 

3661 

4574 


UDPMB 


/SINGLE BREAK', 

/BUFFER FILLED -17 

3662 

2044 


I SB CQUNT3 

3663 

5260 


JMP 

i -3 

/NO, 

3664 

2251 


ISH 

PRIME 

/+1 FOR EXIT', 

3665 

5651 


JMP J 

PRIME 

/EXIT, AC*0", 



/ROUTINE TO DISPLAY THE 

RECEIVED AND 



/EXPECTED DATA 

IN THE AC 

ANq mq, 

3666 

0000 

SHOWX, 

OPEN 



3667 

7300 


CLA CLL 


/0 

3670 

1032 


TAD 

GDATA 

/EXPECTED DATA TO MQ 

3671 

7421 


MOL 


/ 

3672 

1033 


TAD 

BDATA 

/RECEIVED DATA TO AC 

3673 

7402 


HLT 


/MQ CONTAINS EXPECTED', 

/AC CONTAINS RECEIVED', 

3674 

7621 


CAM 


/0 -•> AC+MQ', 

3675 

1052 


TAD 

FLD 

/GET FIELD TESTED 

3676 

7421 


MQL 


/SAVE IN THE MQ FOR VIEWING 

3677 

1034 


TAD 

ADATA 

/ 

3700 

7402 


HLT 


/AC a AODRESS OF DATA’, 

/MQ a MEMORY FIELD’, 

3701 

7300 


CLA CLL 


/0 

3702 

5666 


JMP J 

SHOWX 

/EXIT, AC+L+MQ = 0', 


/ROUTINE TO LOAD THE DA^A BUFFER 
/WITH THE DATA IN THE SR, THE 
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/data 

read from 

the data 

buffer 



/IS LOADED INTO 

THE MQ, 


3703 

4566 

DP, 

SETUP 


/INITIALIZE', 

3704 

7604 


LAS 


/READ DATA PATTERN 

3705 

3532 


DCA 1 

[BUFFER 

/STORE, 

3706 

1132 


TAD 

[BUFFER 

/BUFFER ADDRESS —5 

3707 

4577 


UDPLA 


/STARTING ADDRESS REGISTER, 

3710 

7301 


CLA CLL 

I AC 

/SET EXT, STARTING ADDRESS REGISER', 

3711 

6214 


RDF 


/field, 

3712 

4575 


UDPSM 


/ 

3713 

4575 


UDPSM 


/STARTING ADDR REGS ADDRESS COUNTER' 

3714 

4574 


UDPMB 


/break 

3715 

4573 


UDPMD 


/READ DATA 

3716 

7421 


MQL 


/STORE OUTPUT FROM BUFFER IN THE "MQ" 

3717 

5304 


JMP 

DP+1 

/REPEAT UNTIL STOPPED', 



/ROUTINE TO ADJUST "TIME' 

’ FOR SYNCHROHaTIQN WITH 


/THE BLINK FREQUENCY, 

/FOR EVERY 15 TICKS AN ADDITIONAL 1 JS ADDED', 




3720 

0000 

caltim. 

i OPEN 


3721 

1770» 


TAD 

buffer 

3722 

0367 


AND 

(CURSOR 

3723 

1366 


TAD 

(-BLINK 

3724 

7650 


SNA CLA 


3725 

5330 


JMP 

, *3 

3726 

1046 


TAD 

TIMEX 

3727 

5345 


JMP 

CAL3 

3730 

1046 


TAD 

TIMEX 

3731 

7041 


CMA I AC 


3732 

7421 


MQL 


3733 

7501 


MQA 





DECIMAL 


3734 

1365 

CALI, 

TAD 

(-15 




OCTAL 


3735 

7510 


SPA 


3736 

5343 


JMP 

CAL2 

3737 

7521 


SWP 


3740 

700x 


I AC 


3741 

7521 


SWP 


3742 

5334 


JMP 

CALI 

3743 

7721 

CALZ, 

CLASWP 


3744 

7041 


CMA I AC 


3745 

3045 

CAL3, 

DCA 

TIME 

3746 

5720 


JMP I 

CALTIM 



/ROUTINE TO EXIT 

' +£ IF SR7 



/not 0 

AND 1 RESPECTIVELY, 

3747 

0000 

SR7SR8i 

: OPEN 


3750 

7604 


LAf 


3751 

7102 


CLL BSW 


3752 

7006 


RTL 


3753 

7040 


CMA 



/LOOK AT A CHARACTER IN THE BUFFER 
/KEEP ONLY THESE CONTROL BITS, 

/ADD -BLINK TO SEE IF 
/IF BLINK IS SET* 

/BLINK IS SET, 

/GET CALCULATED TIME COUNT 
/AND PUT IT IN TIME, 

/GET QRGINAL TIME COUNT', 

/NEGAIE IT 
/STORE IN HQ 
/HQ --> AC 
/ 

/SUBTRACT 15', 

/ 

/CAN WE SUBTRACT ANOTHER 15? 

/NO 

/AC -»> HQ |‘ HQ —> AC‘, 

/*1 ON TIHE, 

/AC -•> HQ |' HO - = > AC*, 

/GO DO ANOTHER SUBTRACTION', 

/HQ --> ACT 0 --> HQ, 

/NEGATE NEW TIHE 
/SAVE, 

/EXIT, 

SR8 ARE 


/LOOK AT SR 

/POSITION 7+8 FOR TESTING 
/GET INTO LINK AND ACC 
/CHANGE ACC 
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3754 

7720 


SNL SMA 

CLA 

3755 

5747 


JMP I 

SR7SR8 

5756 

2347 


l S3 

SR7SR8 

3757 

5747 


JMP I 

SR7SR8 

3765 

7761 




3766 

7600 




3767 

0600 




3770 

4700 




3771 

7701 




3772 

2004 




3773 

3600 




3774 

0302 




3775 

7772 




3776 

0301 




3777 

7200 





4000 


PAGE 




/IOT 

SUBROUTINES! 

4000 

0000 

HpPLA 

, open 


4001 

6050 

DOPUA 

i opla 


4002 

5600 


JMP I 

ZDPLA 

4003 

7402 


HLI 



4004 

0000 

ZqPGO i 

OPEN 


4005 

6051 

DOPGO i 

DPGO 


4006 

5604 


JMP I 

HQPGO 

4007 

7402 


HLI 



4010 

0000 

HOPSMi 

OPEN 


4011 

6052 

DDPSMi 

OPSM 


4012 

5610 


JMP I 

HDPSM 

4013 

7402 


HUT 



4014 

0000 

HqPMB i 

OPEN 


4015 

6053 

DDPMS( 

DPMB 


4016 

5614 


JMP I 

HOPMB 

4017 

7402 


HUT 



4020 

0000 

HqPMDi 

OPEN 


4021 

6034 

dopmo i 

OPMO 


4022 

5620 


JMP J 

HDPMD 

4023 

7402 


HLI 



/SR7R0 AND SRS'il? 
/YES. 

/NO, THEN Ail', 
/EXIT *1', 


/OPUA SKIPPED’, 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY', 


/DPOO SKIPPED', 

/NO SCOPE LOOP PROVIDED 
/SR SETTINOS DO NOT APPLY', 


/opsh skipped; 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY’, 


/QPMB skipped; 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY", 


/OPMD skipped; 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY’, 


VIDEO 1 

DISPLAY 

TEST 1 

MAINDEC- 

08-OHVTA-8-L 

PAL10 V141 23-FEBA73 

4024 

0000 

HOPMS, 

OPCN 



4025 

6055 

DDPMS, 

DPMS 



4026 

5624 


JMP I 

HOPMS 


4027 

7402 


HLI 


/DPMS SKIPPED', 






/NO SCOPE LOOP PROVIDED 






/SR SETTINGS DO NOT APPLY’, 

4030 

0000 

HqPcUi 

open 



4031 

6056 

DDPCl, 

dpcl 



4032 

5630 


JMP J 

HDPCL 

/DPCL NO SKIP, 

4033 

2230 


ISH 

HDPCL 


4034 

5630 


JMP I 

ZDPCL 

/DPCL skipped; 

4035 

0000 

HOPBELi 

OPEN 



4036 

6057 

DDPBELi 

OPBELL 



4037 

5635 


JMP I 

HDPBEL 


4040 

7402 


HLI 


/DPBELL SKIPPED, 


/NO SCOPE LOOP PROVIDED 
/SR SETTINOS DO NOT APPLY’, 


/ROUTINE TO EXIT +2 IF SRIRl, 


4041 

0000 

SHI, OPEN 


4042 

7604 

LAS 


4043 

7104 

RAL CLL 


4044 

7700 

SMA CLA 


4045 

5641 

JMP I 

SWI 

4046 

2241 

IS2 

SW1 

4047 

2241 

ISZ 

swi 

4050 

5641 

JMP I 

swi 



/ROUTINE TO EXIT 

' *i 

4051 

0000 

SW1A, OPEN 


4052 

7421 

MQL 


4053 

7604 

LAS 


4054 

7106 

CLL RTL 


4055 

7200 

CLA 


4056 

7501 

MQA 


4057 

7420 

SNL 


4060 

5651 

JMP I 

SWI A 

4061 

2251 

ISH 

SW1A 

4062 

5651 

JMP I 

SWiA 



/ROUTINE TO EXIT 

+i 

4063 

0000 

SW2, OPEN 


4064 

7604 

LAS 


4065 

7510 

SPA 


4066 

7402 

HIT 


4067 

7106 

RTL CLL 



/SR0 HAS SET TO HALT THE PROGRAM', 
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4070 

7710 

SPA 

CLA 


4071 

5663 

JMP 

l 

SW2 

4072 

2263 

ISH 


SW2 

4073 

5663 

JMP 

I 

swg 



/ROUTINE TO 

EXIT 

' *i 

4074 

0000 

SW3, OPEN 


4075 

7604 

LAS 



4076 

7106 

RTL 

CLL 


4077 

7104 

RAL 

CLL 


4100 

7710 

SPA 

CLA 


4101 

5674 

JMP 

I 

SW3 

4102 

2274 

ISH 


SW3 

4103 

5674 

JMP 

I 

SW3 



/ROUTINE TO 

EXIT*! 

4104 

0000 

SW6, OPEN 


4105 

7604 

LAS 



4106 

7102 

BSW 

CLL 


4107 

7710 

SPA 

CLA 


4110 

5704 

JMP 

I 

SH6 

4111 

2304 

ISH 


SW6 

4112 

5704 

JMP 

I 

SW6 



/routine TO 

exit 

' *1 

4113 

0000 

SW7, OPEN 


4114 

7604 

LAS 



4115 

7102 

CLL 

BSW 


4116 

7104 

CLL 

RAL 


4117 

7700 

SMA 

CLA 


4120 

5713 

JMP 

I 

SW7 

4121 

2313 

ISH 


SW7 

4122 

5713 

JMP 

I 

SW7 


/ROUTINE TO CHANGE IOT DEVICE CODE! 
/AC 0-5 DISPLAY InT 
/AC 6-11 KEYBOARD IOT, 


4123 

0000 

DEVcODi 0 





4124 

4060 

HOMEDF 





4125 

1431 

TAD J 

WORKVT 

/GET NEW DEVICE CODE FROM 

TABLE 


4126 

3035 

DCA 

TEMPI 

/JOT CODE'S, 



4127 

1111 

TAD 

CD1SIOT 

/SET STARTING ADDRESS 6F 

DISPLAY 

IOT TABLE', 

4130 

3036 

DOA 

TEMP2 

/SAVE AT TEMP2’, 



4131 

1035 

TAD 

TEMPI 

/OBTAIN NEW IOT. 



4132 

7012 

RTR 


/AND STORE AT TEMP3, 



4133 

7010 

RAR 


/ 



4134 

0110 

ANO 

C0770 

/ 



4135 

3037 

DCA 

TEMP3 

/ 



4136 

4350 

JMS 

DVCOM 

/PERFORM IOT SELECTION 



4137 

1107 

TAO 

CKEYIOT 

/GET STARTING ADDRESS OF 

KEYBOARD 

IOT TABLE 

4140 

3036 

DCA 

TEHP2 

/AND SAVE 




1 DEO DISPLAY 

TEST 1 

MAINDEC. 

08-DHVTA-B.L 

PAL10 V141 23.FEB.73 

4141 

1035 


TAO 

tempi 

/obtain new iot c ooe- 

4142 

7006 


RTL 


/ 

4143 

7004 


RA U 


/ 

4144 

0110 


ANO 

C0770 

/ 

4145 

3037 


DCA 

TEMP3 

/AND STORE AT TEMPS, 

4146 

4350 


JMS 

OVCOM 

/PERFORM IOT SELECTION 

4147 

5723 


JMP I 

OEVCOD 

/RETURN 

4150 

0000 

OVCOM, 

OPEN 


/COMMON SUBROUTINE TO SELECT 

4151 

1436 


TAO I 

TEMP2 

/ 

4152 

7450 


SNA 


/0? 

4153 

5750 


JMP 1 

OVCOM 

/YES, EXIT’, 

4154 

3040 


DCA 

TEHP4 

/ 

4155 

1440 


TAO I 

TEMP4 

/ 

4156 

0377 


AND 

(7007 

/REMOVE OLO CODE - , 

4157 

1037 


TAD 

TEMPS 

/INSERT NEW CODE', 

4160 

3440 


DCA I 

TEMP4 

/PUT BACK NEW !TO, 

/SET UP FOR NEXT IOT CODE’, 

4161 

2036 


ISH 

TEMP2 

4162 

5351 


JMP 

OVCOM+1 




/ROUTINE TO LOAD AOORESS "ONE 

* TWO" FOR INTERRUPTS 

4163 

0000 

INTLD, 

OPEN 



4164 

1135 


TAD 

CJMP I TWO 

/ 

4165 

3001 


OCA 

ONE 

/ 

4166 

1763 


TAD I 

INTLD 

/ 

4167 

3002 


DCA 

TWO 

/ 

4170 

2363 


ISH 

INTLD 

/ 

4171 

6035 

KEY 1201 

! KIE 


/ 

4172 

5763 


JMP I 

INTLD 

/ 
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4177 7007 

4200 


/background processor test I 

/TESTS ARE RUN WHILE WAITING FOR INTERRUPT 


4205 

7040 

ISHTST, CMA 


4206 

3355 

DCA 

XTEMP5 

4207 

3332 

DCA 

XTEMP2 

4210 

3351 

DOA 

XTEMP1 

4211 

2331 

ISH 

XTEMP1 

4212 

2332 

ISH 

XTEMP2 

4213 

5211 

JMP 

i ”2 

4214 

1332 

TAD 

XTEMP2 

4215 

7440 

SHA 


4216 

7402 

HLT 



/ISH FAILURE 1 , 



/VT8-E 


/VT8-I 


S&3F- 


VIDEO DISPLAY 

TEST 1 

HAINDEC-I 

08-DHVTA-B-L 

PAL10 V141 23«FE8«73 






/NO SCOPE LOOP PROVIDED 
/SR SETTINGS 00 NOT APPLY', 

4217 

7240 


CLA DMA 



4220 

1351 


TAD 

XTEMPi 


4221 

7440 


SEA 



4222 

7402 


HUT 


/ISE FAILURE', 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY’, 

4223 

2355 


ISE 

XTEMP5 

4224 

7410 


SKP 



4225 

5210 


JHP 

ISZTST43 




/rotate 

1 TEST! 



4226 

1352 

ROT1TS, 

TAO 

XTEMP2 


4227 

7130 


STL RAR 



4230 

7004 


RAL 



4231 

7420 


SNL 



4232 

7402 


HLT 


/ROTATE FAILURE, 

/no scope Loop provided 

/SR SETTINGS DO NOT APPLY’, 

4233 

7041 


CHA JAC 


4234 

1352 


TAD 

XTEMP2 


4235 

7440 


SgA 



4236 

7402 


HLT 


/ROTATE FAILURE', 

/NO SCOPE LOOP PROVIDED 






/SR SETTINGS DO NOT APPLY', 

4237 

2352 


ISE 

XTEMP2 


4240 

5226 


JHP 

ROUTS 




/rotate 

2 TEST! 



4241 

1352 

R0T2TS, 

TAD 

XTEMP2 


4242 

7106 


ClL RTL 



4243 

7012 


RTR 



4244 

7430 


SEL 



4245 

7402 


HLT 


/ROTATE FAILURE', 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS 00 NOT APPLY’, 

4246 

7041 


CHA IAC 



4247 

1352 


TAD 

XTEMP2 


4250 

7440 


SEA 



4251 

7402 


HLT 


/ROTATE FAILURE, 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY’, 

4252 

2352 


ISE 

XTEMP2 


4253 

5241 


JMP 

R0T2TS 




/TAD TEST ADD EVERY COM TO RAN 

NO, 

4254 

3353 

TADTST, 

DCA 

XTEHP3 


4255 

1356 


TAD 

PRAN1 


4256 

7104 


CLL RAL 



4257 

7430 


SEL 



4260 

7001 


I AC 
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4261 

3356 

DCA 

prani 

4262 

1357 

TAD 

PRAN2 

4263 

1356 

TAD 

PRANI 

4264 

3357 

OCA 

PRAN2 

4265 

1357 

TAD 

PRAN2 

4266 

3354 

DCA 

XTEHP4 

4267 

1357 

TAD 

PRAN2 

4270 

1353 

TAD 

XTEHP3 

4271 

7041 

CHA 

I AC 

4272 

1354 

TAD 

XTEHP4 

4273 

7440 

SEA 


4274 

7402 

HLT 


4275 

2354 

ISE 

XTEMP4 

4276 

7000 

NOP 


4277 

2353 

ISE 

XTEMP3 

4300 

5267 

JMP 

,->11 


/ JHS TEST HAKE 13 PASSES OF 128 
/AND COMPARE RESULTS, 


4301 

1363 

JMSTST, 

TAD 

K7763X 

4302 

3351 


DCA 

XTEHP1 

4303 

1362 


TAD 

K7600X 

4304 

3352 


DCA 

XTEHP2 

4305 

1360 


TAD 

JHSLQC 

4306 

3353 


DCA 

XTEHP3 

4307 

1361 


TAD 

jhskon 

4310 

3354 


DCA 

XTEHP4 

4311 

1377 


TAD 

(JMRETU 

4312 

3056 


DCA 

RETUJH 

4313 

1354 


TAD 

XTEHP4 

4314 

3753 


DCA I 

XTEHP3 

4315 

2354 


ISE 

XTEMP4 

4316 

2333 


ISE 

XTEHP3 

4317 

2352 


ISE 

XTEHP2 

4320 

5313 


JHP 

■” 5 

4321 

1106 


TAD 

CJHP I RETUJH 

4322 

3753 


DCA I 

XTEHP3 

4323 

5760 


JHP I 

JMSLOC 

4324 

1362 

JMRETUi 

TAD 

K7600X 

4325 

3352 


DCA 

XTEMP2 

4326 

1360 


TAD 

JH9L0C 

4327 

3353 


DCA 

XTEHP3 

4330 

1353 


TAD 

XTEHP3 

4331 

7040 


CHA 


4332 

1753 


TAO I 

XTEMP3 

4333 

7440 


SEA 


4334 

7402 


HLT 


4335 

2353 


I5E 

XTEHP3 

4336 

2352 


ISE 

XTEHP2 
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/TAD FAILURE', 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY’, 


CONSECUTIVE JMS, 


/JHS FAILURE', 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS DO NOT APPLY', 
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4337 

5330 

JMP 

JMRETUA4 

4340 

2351 

ISZ 

XTEMP1 

4341 

5303 

JMP 

JMSTST+2 

4342 

7501 

MQA 


4343 

7001 

I AC 


4344 

7421 

MQL 


4345 

2364 

ISZ 

BACKPA 

4346 

5205 

JMP 

JSZTST 

4347 

7402 

HLI 



/COUNI TEN PASSES, 

/NO INTERRUPT OCCURRED WITHIN 10 
/PASSES OF THE BACKGROUND JOB, 
/CLOCK RUNNING SLOW OR INTERRUPT 
/FAILING, 

/NO SCOPE LOOP PROVIDED 
/SR SETTINGS 00 NOT APPLY', 


4350 

5776' 

JMP 

BEGIN 

/START TEST FROM BEGINNING’, 

4351 

0000 

XTEMP1, OPEN 



4352 

0000 

KTEhPSi open 



4353 

0000 

XTEMP3i OPEN 



4354 

0000 

XTEMP4, OPEN 



4355 

0000 

XTEMP5, OPEN 



4356 

4263 

PRAN1, 4263 



4357 

2634 

PRAN2, 2634 



4360 

7400 

JMSLOCi BWA 



4361 

4200 

JMSKONi 4200 



4362 

7600 

K7600Xi 7600 



4363 

7763 

K7763Xi 7763 



4364 

0000 

BAOkPA, open 


/background pass count 

4376 

0200 




4377 

4324 





4400 

PAGE 





/ROUTINE TO WAIT THE DURATION 

OF 2 II is?" LOOPS', 

4400 

0000 

WAIT, OPEN 



4401 

3252 

OCA 

LOA 

/ 

4402 

2252 

ISZ 

LDA 

/ 

4403 

5202 

JMP 

i “1 

/ 

4404 

2252 

ISZ 

LDA 

/ 

4405 

5204 

JMP 


/ 

4406 

5600 

JMP 

I WAIT 

/ 



/ROUTJNe TO LOAD BUFFER WjTH 

THE 



/contents OF 

THE Ac, 


4407 

0000 

LDBUFF, OPEN 



4410 

3252 

OCA 

LDA 

/save the character, 

4411 

1121 

TAD 

CBUFFER-1 

/BUFFER-1-OA510’. 

4412 

3010 

DCA 

A110 

/ 

4413 

4557 

SR6 


/32 OR 64 CHARACTER? 


I DEO 1 

display 
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decimal 


/ 

4414 

1117 


TAD 

[32*20 

/32, 

4415 

1116 


TAD 

[-64*20 

/64, 




OCTAL 


/ 

4416 

3302 


OCA 

LOB 

/ 

4417 

1232 


TAO 

LDA 

/CHARACTER BUFFER’, 

4420 

3410 


DCA I 

A 110 

/ 

4421 

2302 


ISZ 

LDB 

/BUFFER FILLED? 

4422 

5217 


JMP 

■ «3 

/NO, 

4423 

5607 


JMP I 

LDBUFF 

/YES, EXIT’, 



/this routine saves the 

CONTENTS OF THE ADDRESS 



/SPEC J F1£0 BY LOCATION » 

ADATA" IN THE MQ', THE ADDRESS 



/IS then loaded 

WITH THE 

DATA IN LOCAJION »GDATA" 



/either 

32 OR 64 BREAKS 

ARE THEN PERFORMED DEPENDING ON THE 



/SETTING of the 

SR, THE 

ORGINAL CONTENTS OF THE ADDRESS ARE 



/RESTORED BEFORE EXIT, 


4424 

0000 

LDADDAi 

OPEN 



4425 

2224 


ISZ 

L0400A 

/+1 FOR EXIT’, 

4426 

1042 


TAD 

C0UNT1 

/GET THE NUMBER OF BREAKS 

4427 

3252 


DCA 

LOA 

/SAVE THIS NUMBER, 

4430 

1037 


TAO 

JDPSM 

/GET EITHER A "NOP" OR "DPSM" 

4431 

3242 


DCA 

LOA I 

/STORE INSTRUCTION 

4432 

1052 


TAO 

FLD 

/GET FIELD 

4433 

1155 


TAO 

C CDF 

00 /CDF 0 INST, 

4434 

3235 


DCA 

,+l. 

/STORE CDF INST. 

4435 

0000 


OPEN 


/EXECUTE CDF XX 

4436 

1434 


TAO I 

adata 

/GET THE INFORMATION IN THE ADDRESS, 

4437 

7421 


MQL 


/save'it', 

4440 

1037 


TAD 

JNQATA 

/GET TEST DATA 

4441 

3434 


OCA I 

ADATA 

/PUT TEST DATA IN THE ADDRESS, 

4442 

0000 

LOA 11 

OPEN 


/WILL CONTAIN A "NOP" OR "DPSM" 

4443 

6053 

15, 

QPMB 


/DO A SINGLE BREAK”, 

4444 

2232 


ISZ 

LDA 

/ENOUGH BREAKS TO FILL BUFFER? 

4445 

5242 


JMP 

, -3 

/NO, DO SOME MORE'. 

4446 

7501 


MQA 


/HESTORE THE ADDRESS WITH - 

4447 

3434 


OOA l 

AOATA 

/ITS ORDINAL CONTENTS, 

4450 

4060 


HOMEOF 


/BACK TO PROGRAM DF, 

4451 

5624 


JMP I 

LDADDA 

/EXIT, 

4452 

0000 

LDA, 

OPEN 


/COUNT LOCATION, 

4453 

0000 

LDADDB, 

OPEN 



4454 

1042 


TAD 

C0UNT1 

/GET THE NUMBER OF BREAKS 

4455 

3302 


DCA 

LDB 

/SAVE THIS NUMBER, 

4456 

1057 


TAD 

IDPSM 

/GET INSTRUCTION 

4457 

3272 


DCA 

LDB I 

/SAVE 

4460 

1034 


TAO 

adata 

/ 

4461 

3303 


DCA 

LDB1 

/ 

4462 

1052 


TAO 

FLD 

/field 

4463 

1155 


TAO 

C CDF 00 

/CDF 0 INST’, 

4464 

3265 


OCA 

,+l 

/STORE CDF INSTRUCTION”, 

4465 

0000 


OPEN 


/EXECUTE CDF XX INSTRUCTION, 

4466 

1703 


TAO I 

L081 

/GET THE INFORMATION IN THE ADDRESS, 

4467 

7421 


MQL 


/SAVE IT’, 
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4470 

1037 


tad jnsata 

4471 

3703 


DCA I LDBl 

4472 

0000 

(.OBI. 

OPEN 

4473 

6053 

13, 

DPMB 

4474 

2302 


ISZ LOB 

4475 

5272 


JMP 

4476 

7501 


MQA 

4477 

3703 


DCA J LDBl 

4500 

4060 


HOMEDF 

4501 

5653 


JMP I LDADDB 

4502 

0000 

LOB, 

OPEN 

4503 

0000 

LDBl, 

OPEN 

45®4 

4001 

DJSJOTi 

DOPLA 

4505 

4005 


OOPGO 

4506 

4011 


DOPSM 

4507 

4015 


DOPMB 

4510 

4021 


DDPMO 

4511 

4025 


DDPMS 

4512 

4031 


DOPCL 

4513 

4036 


DDPHEL 

4514 

0402 


CLOCK1 

4515 

0404 


CLOCK2 

4516 

1430 


11 

4517 

4473 


13 

4520 

4443 


15 

4521 

0000 


0 

4522 

2602 

KEYJOT, 

KEYjl 

4523 

2603 

KEYUA 

4524 

2632 


KEY1 

4525 

3013 


KEYI4 

4526 

3015 


KEYJ5 

4527 

3214 


KEY16 

4530 

0203 


KEYJ7 

4531 

0215 


KSYI8 

4532 

0230 


KEY 19 

4533 

2637 


KEY 110 

4534 

2651 


KEY 111 

4535 

2666 


KEYU2 

4536 

2701 


KEY113 

4537 

3016 


KEY 114 

4540 

3024 


KEY 115 

4541 

2676 


KEY 116 

4542 

3203 


KEY 117 

4543 

3226 


KEY 118 

4544 

3212 


OCT1 

4545 

3403 


KEYJ19 

4546 

4171 


KEYI20 

4547 

0000 

0 

/DATA FOR CONSTANT DATA 

4550 

7767 

FDATAB, 

-foatae+fdatab 

4551 

7777 

7777 

4552 

0000 


0000 


/QST TEST DATA 

/PUT TEST DATA IN THE ADDRESS, 
/WIU'CONTAIN A »NOP» SR »DPSM" 
/DC A SINSL’E BREAK’, 

/ENOUGH BREAKS TO PILE BUFFER? 
/NO i DO SOME MORE', 

/RESTORE THE ADDRESS KITH . 

/ITS ORDINAL CONTENTS', 

/RESTORE PROGRAM DF, 

/EXIT, 

/COUNT LOCATION, 
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/VT8-E VIDEO DISPLAY TEST 


MAINDEC-08-DHVTA-B.L PAH0 V141 23AFEB-73 


14118 PAGE 1.55 


4553 7777 

4554 5252 

4555 2525 

4556 7700 

4557 0077 

4560 7007 

4561 0770 


7777 

5252 

2525 

7700 

0077 

7007 

FDATAE, 0770 


4562 7770 

4563 7750 

4564 7746 

4565 7765 

4566 7743 

4567 7742 

4570 7741 

4571 0000 


CURPOS, .CURLFT 

-currht 

-CURUP 

•CURDWN 

-CURHME 

*EOL 

-E0S 

0 


4572 4602 

4573 4607 

4574 4615 

4575 4620 

4576 4625 

4577 4636 

4600 4632 

4601 4642 


curmsg, MLEFT 
MRJGHT 
MUP 
MDOWN 
MHOHE 
HEOL 
MEOS 
MWHAT 


4602 0114 

4603 0105 

4604 0106 

4605 0124 

4606 3277 

4607 0122 

4610 0111 

4611 0107 

4612 0110 

4613 0124 

4614 3277 

4615 0125 

4616 0120 

4617 3277 

4620 0104 

4621 0117 

4622 0127 

4623 0116 

4624 3277 

4625 0110 

4626 0117 

4627 0115 

4630 0105 

4631 3277 

4632 0105 

4633 0117 

4634 0123 

4635 3277 

4636 0105 


MLEFT, "L«B1T7| , 'E«8IT7I"F*8IT7J ,, T*8JI7) , ’?4BIT7 BLINK EOS 

MRIGHTi "RSBIt 7|"I4BIT7I"GABIT7| ,, H4BIT7I"TSBIT7|"?4BIT7 B U l NK E 0 S 

HUP, »U«BIT7l"P4BIT7l"?iBiT7 BI.INK EOS 

MOOWNi "DSBIT7|"04BIT7r'W«BIT7)"N«BII7J"?4BIT7 BlINK EoS 

MHOME, "H4BJT7!"04BIT7|"M4BIT7)"E4BJI7l"74BIT7 BlINK EOS 

MEOS, "ESB!T7|'>048IT7I"S«BIT7I''?4B5T7 B^lNK EOS 

MEOLi 


l E4BlT7I"04BIT7|"E4BJT7|"74BIT7 B^INK EOS 
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4637 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4650 

4651 
4632 

4653 

4654 


0117 

0114 

3277 

0127 

0110 

0101 

0124 

0277 

3277 

0304 

0317 

0316 

0305 

0000 


MWHAT, "W«BIT7I"H4B!T7I"A4BIT7J''T«BIT7I"?48IT7 B(.tNKI "?«BJT7 BUNK EOS 


MOONEi "DSBIT7 BUINKI"04B1T7 BlINK I"N«B1T7 BU!NKI"E«81T7 8UINKI0 


/DISPLAY SUFFER USES LOCATIONS 4670.7377', 
/BACKGROUND WORKING AREA USES LOCATIONS 7400-7577, 

4670 *4670 

XL 1ST 


0106 5436 

0107 4522 

0110 0770 

0111 4504 

0112 1000 
0113 0100 

0114 4701 

0115 4676 

0116 5400 

0117 1200 

0120 0177 

0121 4677 

0122 3600 

0123 2135 

0124 1051 

0125 3615 

0126 0200 
0127 0061 

0130 7700 

0131 0040 

0132 4700 

0133 3506 

0134 4205 

0135 5402 

0136 0020 

0137 3631 

0140 0032 

0141 0010 

0142 1777 
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0143 

7770 

0144 

4407 

0145 

7766 

0146 

7400 

0147 

1470 

0150 

3640 

0151 

3703 

0152 

2600 

0153 

2000 

0154 

3537 

0155 

6201 

0156 

4113 

0157 

4104 

0160 

4074 

0161 

4063 

0162 

4051 

0163 

4041 

0164 

3343 

0165 

3666 

0166 

1073 

0167 

3400 

0170 

4035 

0171 

4030 

0172 

4024 

0173 

4020 

0174 

4014 

0175 

4010 

0176 

4004 

0177 

4000 
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11100000 
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AC 
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ERRORS DETECTEOI 0 
LINKS GENERATED! 53 
RUN-TIMEj 24 SECONDS 
3K CORE USED 



